Когда есть компьютер и когда его нет.
Премного извиняюсь, неправильно прочел условие задачи
Var n:integer;
begin
readln(n);
if ((n div 10)+ (n mod 10) )=5 then
writeln('Сумма равно 5')
else writeln('Сумма не равна 5');
end.
Uses crt;
var i,ans:integer;
str:string;
begin
ans:=0;
readln(str);
for i:=1 to length(str) do
if (str[i]='.') or (str[i]=',') or (str[i]=';') or (str[i]=':') or (str[i]='?') or (str[i]='!')
then ans:=ans+1;
writeln(ans);
<span>end.</span>