Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
mamkin0poc
21.11.2021 10:36 •
Информатика
На языке программирования.даны два двухзначных числа определить у кого сумма цифр больше.вывести это число.
Ответ:
gleb101pro
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 оценок)
Популярные вопросы: Информатика
ponchikelo
10.11.2022 14:10
Программа у меня есть, мне нужен алгоритм в Visio....
Huran
04.04.2022 20:29
3.Резидентская программы, предотвра заражения файлов:...
Kolodey200453
24.04.2020 02:49
Составить программу поиска первых n чисел, равных сумме кубов своих цифр. программа - паскаль аbc...
kseniyapolozhe
24.04.2020 02:49
Впаскале! дано ціле число n. надрукувати n чисел aᵢ=√i / i²+1 , i=1,....
00099000
26.11.2022 12:47
В одномерном массиве размерности n найти количество и номера элементов, равных заданному P...
Anastasia5555633
23.04.2023 12:18
Дан код с номером. Определи, какой это символ: управляющий или изображаемый. Код с номером 55 изображаемый управляющий...
Lenaaaa111
11.03.2022 03:14
Напишите цикл, который убирает из списка чисел от 1 до 15 все числа кратные 3. Используйте оператор continue...
11UmNiK111
28.08.2021 00:35
Я бы хотел узнать ворует ли Fortnite остальные деньги за покупку Battle Pass? Можно им доверять? ...
leria11111111111
09.05.2022 07:53
Составьте хронологическую таблицу жизни и творчества писателя А.Островского...
lilulurens
09.05.2022 07:53
1. Гены - это . . .? 2. Генетический код – это … ?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.