Напечатайте все 2-значные числа,кратные данному числу K. Число K ввести с клавиатуры. Помогите с Паскалем
Напечатайте все 2-значные числа,кратные данному числу K. Число K ввести с клавиатуры. Помогите с Паскалем
Гость
Ответ(ы) на вопрос:
Гостьvar a,k:integer;
begin
writeln('введите число k ');
readln(k);
writeln('числа кратные ',k,' : ');
for a:=1 to k do begin
if (k mod a = 0) and (a>9) then writeln(a);
end;
end.
Не нашли ответ?
Похожие вопросы