Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
Dhonsina
28.11.2022 01:11 •
Информатика
На языке программирования.даны два двухзначных числа определить у кого сумма цифр больше.вывести это число.
Ответ:
Bogdan300707
05.10.2020 15:12
Program n1;
var a,b,s1,s2: integer;
begin
readln(a,b);
s1:=(a mod 10)+(a div 10);
s2:=(b mod 10)+(b div 10);
if s1>s2 then write(a);
if s1<s2 then write(b);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
трифон1
26.11.2022 18:30
Как это решить , иначе мне 2 поставят на паскале...
zlatapitch1234
11.07.2021 02:43
Розв язати задачу, виконати блок-схему для неї(пайтон) Учні 9а виготовили з картону до кабінету математики 10 кубів зі стороною 20 см., а учні 9б 10 прямокутних паралелепіпедів...
kesha25521
03.04.2023 15:01
Салгоритма найди и подпиши рисунок бима.сделай рисунок бома...
marsimkozyrev
09.04.2020 08:33
Придумайте условия которой содержит слова...
karina211206
09.04.2020 08:33
Разгадайте кроссворд «назначение клавиш»: по горизонтали: 1) на «экран» вверх; 2) стереть слева; 3) в конец строки; 4) стереть справа; 5) на начало строки; 6) перейти...
Kiko2802
05.06.2021 01:56
Пользователь работал с файлом c document\seminar\math\lesson.htm. затем он поднялся на один уровень вверх, создал там каталог info, в нем создал еще один каталог form...
adadov12345
11.12.2021 10:57
На завтра, когда был создан первый графостроитель и кто его создал...
alina13lina87
18.08.2020 17:53
Реши уравнения: 644-59с=349;4х+5=21; а÷83+59=64....
ksenyakozlova2
27.05.2023 00:19
Золотая осень работа это дайте ответ ...
Oksanaa11
04.06.2023 05:04
Как можно определить результирующий вектор...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var a,b,s1,s2: integer;
begin
readln(a,b);
s1:=(a mod 10)+(a div 10);
s2:=(b mod 10)+(b div 10);
if s1>s2 then write(a);
if s1<s2 then write(b);
end.