Составить программу вычисления дня недели (по цифрам от 1 до 7) с оператора case of на языке паскаль
175
198
Ответы на вопрос:
program xxx;
var i, k, d, e, s : integer;
begin
k: =0;
for i: = 10 to 99 do
begin
d: = i div 10;
e: = i mod 10;
s: =d + e;
if i mod s = 0 then k: =k+1
end;
write ('кол-во чисел которые делятся на сумму своих цифр=', k);
readln
end..
Популярно: Информатика
-
ns15119916.07.2022 20:38
-
bmwm3gtr7512.10.2020 03:08
-
evgen9007912.11.2020 23:19
-
123289025.01.2021 20:46
-
ALIONA202001.08.2021 06:02
-
Оксана099009.08.2020 12:36
-
БадАнгелина22.08.2022 19:18
-
dum320.11.2021 23:03
-
irarmnv18.02.2023 13:22
-
Полина17411103.01.2021 08:01