Question

1. вводится 10 чисел. найти сумму положительных двузначных чисел. 2. вводится текст. конец ввода точка. найти количество букв "г" и "г". решить в паскале

Answer 1

var a,s:integer;
begin
s:=0;
writeln('Введите числа');
repeat
readln(a);
if (a>9)and(a<99) then
s:=s+a;
until a=0;
writeln(s);
end.