Цитата:
Сообщение от Emperor
program eee;
var
a,b,c,d,e,f,g,s:integer;
begin
readln;
a:=3;
b:=6;
c:=9;
d:=12;
e:=15;
f:=18;
g:=21;
s:=3+6+9+12+15+18+21;
writeln(s);
end.
вдруг кому нужно будет  |
Бред... нахуй было вводить переменные ?
uses crt;
var s: integer;
begin
s:=3+6+9+12+15+18+21;
writeln(s);
end.
ну или на крайняк
uses crt ;
var a,b,c,d,e,f,g,s : integer;
begin
writeln('введите числа'); // необязательно
read(a,b,c,d,e,f,g); //вводиш числа сразу в программе (любые)
s:=a+b+c+d+e+f+g;
writeln(s);
end.
так же можно решить через прогрессию но влом вспоминать как это делается.