1. Вводится 10 чисел. Найти сумму положительных двузначных чисел. 2. Вводится текст. Конец ввода точка. Найти количество букв "Г" и "г". Помогите решить задачи в паскале
1. Вводится 10 чисел. Найти сумму положительных двузначных чисел. 2. Вводится текст. Конец ввода точка. Найти количество букв "Г" и "г". Помогите решить задачи в паскале
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы