Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Напечатайте все 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.