Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Вот училка задала на отработку по программированию на паскаль ! решите пж :)
" Дано целое число. Определить, является ли оно кратным 5 и 10 "

Ответ оставил Гость

Program qq;
var a: integer;
begin
writeln (Введите целое число); readln(a);
If (a mod 5 =0) and (a mod 10=0) then writeln (Число кратно 5 и 10) else writeln (Число не кратно 5 и 10); end.