Информатика, опубликовано 2018-08-22 20:02:37 by Гость
Составить программу для решения задачи:задайте целое число ;определите кратно ли оно 5
Ответ оставил Гость
Var
r: longint;
begin
readln (r);
if (r mod 5) = 0 then write (Кратно) else write (Не кратно);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.