З'ясувати чи число а кратне 5. відповідь вивести у вигляді yes/no

savoian82ozq31t savoian82ozq31t    3   21.07.2019 03:30    0

Ответы
Marattadjibov73 Marattadjibov73  23.09.2020 01:52
Var a:integer;
begin
write('a='); readln(a);
if a mod 5 = 0 then writeln('Yes') else writeln('No'); 
end.

Пример:
a=15
Yes
ПОКАЗАТЬ ОТВЕТЫ
andriymoskalet andriymoskalet  23.09.2020 01:52
// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
begin
  var a:=ReadInteger('n=');
  if a mod 5=0 then Writeln('Yes')
  else Writeln('No')
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика