введите с клавиатуры 8 положительных целых чисел. Определите, сумму двухзначных чисел. Программа должна вывести одно число: сумму двузначных чисел. Как решить в Pascal????
Ответы
Ответ дал:
0
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.
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.
Вас заинтересует
1 год назад
1 год назад
5 лет назад
5 лет назад
8 лет назад
8 лет назад
9 лет назад
9 лет назад