Составить алгоритм суммы S всех двузначных чисел
Составить алгоритм суммы S всех двузначных чисел
Гость
Ответ(ы) на вопрос:
ГостьVar S,i:integer;
Begin
S:=0;
For i:= 10 to 99 do
S:=S+i;
WriteLn('S = ',S);
End.
Не нашли ответ?
Похожие вопросы