Предмет: Информатика,
автор: twogirlsonelesson
Составить программу по условию.
Вводится натуральное число. Проверить его кратность каждому простому числу первого десятка.
Ответы
Автор ответа:
0
program n1;
var a,b: integer;
begin
write('Введите натуральное число: ');
readln(a);writeln('Число ',a,' - кратно: ');
for b:=1 to 9 do
if a mod b=0 then writeln(' числу ',b);
end.
Интересные вопросы
Предмет: Русский язык,
автор: Sega2478
Предмет: Українська мова,
автор: Димоні
Предмет: Русский язык,
автор: Kane123
Предмет: Химия,
автор: mota3mota
Предмет: Алгебра,
автор: imanmusaeva