Помогите пожалуйста побыстрее составить программу ,которая определяет сумму всех четных двузначных числе

1
числа вводятся с клавиатуры, рандом или как?

Ответы и объяснения

2014-03-17T09:43:01+00:00
Program pr; Var a, b, i:integer; Begin For i:=10 to 98 do Begin A:=a+i; i:=i+1; End; Writeln('Сумма равна ',a); End.