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

Вот училка задала на отработку по программированию на паскаль ! решите пж :)
" Дано целое число. Определить, является ли оно кратным 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.