Введите с клавиатуры 8 положительных целых чисел. Определите, сумму двухзначных чисел. Программа должна вывести одно число: сумму двузначных чисел. Как решить в Pascal????

Введите с клавиатуры 8 положительных целых чисел. Определите, сумму двухзначных чисел. Программа должна вывести одно число: сумму двузначных чисел. Как решить в Pascal????
Гость
Ответ(ы) на вопрос:
Гость
Var A,i,S:integer; Begin S:=0; For i:= 1 to 8 do     Begin     Read(A);     if (A>9)and(A<100) then S:=S+A;     End; WriteLn('Сумма двузначных чисел равна: ',S); End.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы