Делится ли число а на число b без остатка? написать в виде разветвляющего алгоритма.
Делится ли число а на число b без остатка? написать в виде разветвляющего алгоритма.
Гость
Ответ(ы) на вопрос:
Гостьprogram pr;
uses crt;
Var a,b:integer;
Begin
Writeln('vvedite a,b');
readln(a);
readln(b);
if a mod b=0 then Writeln('da')
else Writeln('not');
readln;
end.
Не нашли ответ?
Похожие вопросы