Информатика 1. Вычислить сумму однозначных чисел.2.Составить алгоритм, вычисляющий сумму двухзначных чисел от 20 до 45 включительно.
Информатика
1. Вычислить сумму однозначных чисел.
2.Составить алгоритм, вычисляющий сумму двухзначных чисел от 20 до 45 включительно.
Гость
Ответ(ы) на вопрос:
ГостьVar A,S:integer;
Begin
S:=0;
For A:= 1 to 9 do
S:=S+A;
Write('S = ',S);
End.
Var A,S:integer;
Begin
S:=0;
For A:= 20 to 45 do
S:=S+A;
Write('S = ',S);
End.
Не нашли ответ?
Похожие вопросы