Напишите программу в PASCAL, которая проверяет делимость введенного числа с клавиатуры на 2,3,4,5 СРОЧНО!!!!

Ответы (1)

Масабих 09.05.2025 1

Var a:integer;
flag:boolean;
begin
flag:=false;
write('Введите число ');
readln(a);
if a mod 2 = 0 then begin
    writeln('Число ',a,' делится на 2');
    flag:=true;
end;
if a mod 3 = 0 then begin
    writeln('Число ',a,' делится на 3');
    flag:=true;
end;
if a mod 4 = 0 then begin
    writeln('Число ',a,' делится на 4');
    flag:=true;
end;
if a mod 5 = 0 then begin
    writeln('Число ',a,' делится на 5');
    flag:=true;
end;
if not flag then writeln('Число ',a,' не делится на 2,3,4,5');
end.

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика: