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

Question

Информатика

Егор

28 марта, 01:07

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

+5

Ответы (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.