Регистрация
милана198026
21.04.2023 09:58
Информатика
Есть ответ 👍

6) среди всех двузначных чисел указать те, сумма цифр которых больше 15. 7) дано натуральное двузначное число n. найти и вывести все числа в интервале от 1 до n-1, у которых сумма всех цифр совпадает с суммой цифр данного числа. если таких чисел нет, вывести слово "нет". пример: n=44. числа: 17,26,35. напишите решение на языке паскаль, используя(если их надо использовать) циклы: цикл "пока" и цикл "до"

228
329
Посмотреть ответы 2

Ответы на вопрос:

belya84
belya84
4,5(58 оценок)
Шестая (введёшь 15 тебе выведет) var i,x : integer; begin read(x); for i : = 10 to 99 do begin if (i mod 10) + (i div 10) = x then writeln(i); end; readln; end.
tamerlana34ovwuq7
tamerlana34ovwuq7
4,5(87 оценок)

держи, выведет true, если в записи числа есть 4, и false, если 4 в записи числа не встречается

 

program p1; var n : word;

beginwrite('введи число: '); readln(n);

write((n mod 10 = 4) or (n div 10 mod 10 = 4) or (n div 100 = 4));

readln; end.

 

Популярно: Информатика