Вот училка задала на отработку по программированию на паскаль ! решите пж :) " Дано целое число. Определить, является ли оно кратным 5 и 10 "
Вот училка задала на отработку по программированию на паскаль ! решите пж :)
" Дано целое число. Определить, является ли оно кратным 5 и 10 "
Гость
Ответ(ы) на вопрос:
Гостьuses crt;
var
a:integer;
begin
clrscr;
readln(a);
if (a mod 5=0)and(a mod 10=0)then
writeln('кратное')
else
writeln('не кратно');
readkey;
end.
Не нашли ответ?
Похожие вопросы