Составьте программу которая выводит на печать все двузначные числа,которые делятся на сумму своих цифр
62
ОТВЕТЫ
Var i1,i2:integer;
begin
for i1:=1 to 9 do
for i2:=0 to 9 do
if (i1*10+i2) mod (i1+i2) = 0 then
write(i1*10+i2, );
writeln;
end.
Результат:
10 12 18 20 21 24 27 30 36 40 42 45 48 50 54 60 63 70 72 80 81 84 90
begin
for i1:=1 to 9 do
for i2:=0 to 9 do
if (i1*10+i2) mod (i1+i2) = 0 then
write(i1*10+i2, );
writeln;
end.
Результат:
10 12 18 20 21 24 27 30 36 40 42 45 48 50 54 60 63 70 72 80 81 84 90
40
Отв. дан
Hulas
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Информатика
Авсей
Напишите программу, которая вычисляет количество цифр числа. Используйте функцию. ...
2019-01-22 02:17:56
Paar
Составьте программу вычисления количества двузначных чисел,которые кратны 5 и ...
2019-01-22 02:16:57
Colar
Дано действительное число a. Не пользуясь никакими другими арифметическими ...
2019-01-22 02:16:23
Домн
В письме 4 страницы на каждой странице по 32 ...
2019-01-22 02:15:55