Помогите пожалуйста распиздяю сдать экзамен за предыдущий курс... :confused:
Нужно решить задачу в паскале, а именно найти сумму этих чисел S=3+6+9+12+15+18+21.
Буду благодарен за помощь.

[Talissman]

84

Сообщение от Talissman

84

программу нужно написать, которая это решит :)
вобщем я сделал.

[Talissman]

УмничкО ^_^

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.

вдруг кому нужно будет

Сообщение от 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.

так же можно решить через прогрессию но влом вспоминать как это делается.

Сообщение от AmyFloop

Бред... нахуй было вводить переменные ?

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.

так же можно решить через прогрессию но влом вспоминать как это делается.

да я уже допер что тупанул

чёто у тебя странный экзамен,в школе тяжелее задачи решают

какая попалась... я 3ий раз пересдаю

Добавлено через 23 часа 13 минут
снова актуально -_-
задачу нужно решить через цикл, чтобы программа сама прибавляла каждый шаг +3
кто поможет, в долгу не останусь.

апчег