С клавиатуры вводятся два трехзначных числа .Выяснить ,образуют ли сумма цифр сотен,сумма цифр десятков ,сумма цифр единиц введенных чисел убывающую последовательность
179
ОТВЕТЫ
Var a,b,s1,s2,s3:integer;
begin
readln(a,b);
s1:=a div 100 + b div 100;
s2:=(a div 10 mod 10)+(b div 10 mod 10);
s3:=a mod 10 + b mod 10;
writeln(s1 = ,s1, s2 = ,s2, s3 = ,s3);
if (s1gt;s2) and (s2gt;s3)
then writeln(Последовательность убывающая)
else writeln(Последовательность неубывающая);
end.
Пример:
972 761
s1 = 16 s2 = 13 s3 = 3
Последовательность убывающая
begin
readln(a,b);
s1:=a div 100 + b div 100;
s2:=(a div 10 mod 10)+(b div 10 mod 10);
s3:=a mod 10 + b mod 10;
writeln(s1 = ,s1, s2 = ,s2, s3 = ,s3);
if (s1gt;s2) and (s2gt;s3)
then writeln(Последовательность убывающая)
else writeln(Последовательность неубывающая);
end.
Пример:
972 761
s1 = 16 s2 = 13 s3 = 3
Последовательность убывающая
36
Отв. дан
Shaligrinn
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Українська мова
Lainius
Описать слова "очки, медведь, мотылек, лето, сострадательный" в художественном ...
2018-09-23 00:00:00
Delalas
Укажите количество грамматических основ в предложении. Ответ запишите цифрой. ...
2018-09-23 00:00:00
Александра
Перевести предложения,на ангийский язык,только пожалуйста не с переводчиков!!!<span>1)Если бы ...
2018-09-23 00:00:00
Aulas
Помогите перевести текст LASER 1. The laser has become ...
2018-09-23 00:00:00