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

Question

Информатика

Изида

20 октября, 14:22

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

+4

Ответы (1)

Знаете ответ на вопрос?

Сергуся · 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.