tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
На языке программирования.даны
На языке программирования.даны два двухзначных числа определить у кого сумма цифр больше.вывести это число.
lissrrtt
2 23.08.2019 20:00
0
Ответы
musmus11
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
summercik2009oziid6
25.10.2021 09:23
Дан текст: У СТРАХА ГЛАЗА ВЕЛИКИ. Составьте кодовую таблицу, поставив в соответствие каждой букве порядковый номер её первого вхождения в текст; повторное вхождение...
dggkfuh
25.10.2021 09:24
Вы планируете серьезно заниматься обработкой старвх фотографий. На какие три компонента домашнего компьютера следует обратить внимание в первую очередь веб камера,...
katyazabriyan
25.10.2021 09:30
Постройте логическую схему, соответствующему логическому выражению и найдите значение логического выражения...
Нафунька
25.10.2021 09:31
кто шарит в информатике Письмо другу Вы решили отправить другу открытку, которую сделали своими руками, по почте, купив заранее конверт. Придя домой вы померяли открытку...
Andreychic23
25.10.2021 09:31
Задані дійсні числа x1, x2, . . . , x25. Визначити кількість чисел в найдовшій послідовності із підряд розміщених нулів. (На мові програмування С/С++)...
polina4281
25.10.2021 09:33
Памахите! Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 6 и оканчивающихся на 2. Программа получает на вход...
sashaopalko123
18.05.2020 11:42
напишите алгоритм в Кумире на букву Z и повторить 3 раза...
maestro27568
18.05.2020 11:41
Определите,что будет напечатано в результате работы следующей программы:Var s,k:integer;Begins:=1;for k:=1 to 5 dos:=s*kwrite (s);End...
Grizman7
07.06.2019 14:30
Вчем состоит различие между растровыми изображениями и векторными рисунками?...
annagj200430
07.06.2019 14:40
Репетиционный экзамен в спб 9 потоков по 100 человек в каждом. каждому из них выделяют специальный код, состоящий из номера потока и номера в потоке. при кодировании...
Популярные вопросы
Дана дискретная случайная величина: 1 с вероятностью 0,1 , 2 с вероятностью...
1
Чтобы вычесть дроби с одинаковыми знаменателями нужно из а прежним...
3
Алфавит некоторого языка содержит 30 букв сколько существует шестибуквенных...
1
1) замесила царевна – лягушка тесто на хлеб для царя из муки, молока...
3
Решите подробно. изобразите на координатной плоскости множество...
1
Sqrt(1-x^2)*dx в пределах от 1 до 0 с решением...
1
Куплены три книги; за первую заплачено в 3 раза больше, чем за второю,...
1
Найти общее решение дифференциального уравнения: cos x sin y dy=cos...
2
Напишите акростих на имя валерия или лера, самое главное, чтобы...
2
Втреугольнике abc отмечены середины m и n сторон bc и ac соответственно.площадь...
2
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.