Найти все двузначные числа,которые кратны числу N(программирование паскаль)
Найти все двузначные числа,которые кратны числу N(программирование паскаль)
Гость
Ответ(ы) на вопрос:
Гость//Pascal ABC.NET v3.1 сборка 1172
//Продвинутый вариант
Var
n:integer;
begin
readln(n);
range(10,99).Where(x -> x mod n=0).Print(',');
end.
//"Школьный" вариант
Var
i,n:integer;
begin
readln(n);
for i:=10 to 99 do
if i mod n=0 then write(i,',');
end.
Пример ввода:
3
Пример вывода:
12,15,18,21,24,27,30,33,36,39,42,45,48,51,54,57,60,63,66,69,72,75,78,81,84,87,90,93,96,99
Гость//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
var a,i:integer;
begin
write('Введите число ');
readln(a);
for i:=10 to 99 do
if i mod a = 0 then writeln(i,' кратно ',a);
end.
Тестовое решение:
Введите число 6
12 кратно 6
18 кратно 6
24 кратно 6
30 кратно 6
36 кратно 6
42 кратно 6
48 кратно 6
54 кратно 6
60 кратно 6
66 кратно 6
72 кратно 6
78 кратно 6
84 кратно 6
90 кратно 6
96 кратно 6
Не нашли ответ?
Похожие вопросы