символьные переменные в разветвляющейся структуре ( в паскале)

[ВалерОК]

Составить программу, которая проверяет правило деления на «5».

[McFrey]

Вот...

var
i:integer;
begin
readln(i);
if i mod 5=0 then
writeln('Yes')
else writeln('No');
end.

[Poma][a]

символьные переменные

i:integer;

WriteLn (s[Length(s)] in ['0', '5'])