Напечатайте все 2-значные числа,кратные данному числу K. Число K ввести с клавиатуры....

Question

Напечатайте все 2-значные числа,кратные данному числу K. Число K ввести с клавиатуры. Помогите с Паскалем

Answer 1

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.

Comments

огромное спасибо

---

подожди, не списывай, сейчас исправлю кое что

---

всё