Информатика 1. Вычислить сумму однозначных чисел.2.Составить алгоритм, вычисляющий сумму...

Question

Информатика
1. Вычислить сумму однозначных чисел.
2.Составить алгоритм, вычисляющий сумму двухзначных чисел от 20 до 45 включительно.

Comments

программа на Паскале?

---

Da

Answer 1

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.