Найти все двузначные числа, которые делятся на m или содержат цифру m. Язык Паскаль
Найти все двузначные числа, которые делятся на m или содержат цифру m. Язык Паскаль
Гость
Ответ(ы) на вопрос:
Гостьvar a,b,c:integer;
begin
writeln('введите число');
readln(a);
for b:=10 to 99 do
begin
if (b mod a = 0) or (b div 10 = a) or (b mod 10 = a) then writeln(b);
end;
end.
Не нашли ответ?
Похожие вопросы