Vaesoshel
5 год назад
13 Варик 1 задание написать программу по Паскалю
ОТВЕТЫ
Steinmann Ingrid
Oct 24, 2020
program search;
var a: integer;
begin
write('Введи a=');
readln(a);
if a mod 5 = 0 then writeln('делится на 5');
if a mod 12 = 0 then writeln('делится на 12');
if a mod 21 = 0 then writeln('делится на 21');
end.
var a: integer;
begin
write('Введи a=');
readln(a);
if a mod 5 = 0 then writeln('делится на 5');
if a mod 12 = 0 then writeln('делится на 12');
if a mod 21 = 0 then writeln('делится на 21');
end.
275
Смежные вопросы:
