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

Var A,S:integer;BeginS:=0;For A:= 1 to 9 do    S:=S+A;Write('S = ',S);End.Var A,S:integer;BeginS:=0;For A:= 20 to 45 do    S:=S+A;Write('S = ',S);End.