Паскаль, цикл со счетчиком.
Вывести на экран все двузначные числа, которые нацело делятся на число, введённое пользователем.
Var k,i:integer;
begin
write(k=); readln(k);
for i:=10 to 99 do
if i mod k = 0 then write(i, );
end.
Пример:
k=5
10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95
Оцени ответ
