procedure summa(s, num: integer);
begin
s:= s + num;
end;
var i, sum: integer;
begin
sum:= 0;
for i:= 10 to 99 do if i mod 2 = 0 then summa(sum, i);
write(sum);
end.
Правильный ответ у меня вышло Г
Витя нарисовал лес в горах. Петя нарисовал лес. Даша нарисовала горы
Где таблица ааааааааааааааааааааааааааааа ?
Var s,p:string; k,i:integer;
begin
readln(s);
p:='.,;:!?';
k:=0;
for i:=1 to length(s) do
if pos(s[i],p)>0 then k:=k+1;
writeln('k = ',k);
end.
Пример:
Hi, guys!
k = 2