Question

В первый час работы, рабочий изготавливает a деталей, за последующий час на d деталей больше, чем за предыдущий. Разработайте программу, которая подсчитает, сколько деталей изготовил рабочий за k часов работы.

Answer 1

var a,d,k,i,ak,s:integer;
begin
writeln('a, d, k:');
readln(a,d,k);
s:=0; ak:=a-d;
for i:=1 to k do
 begin
 ak:=ak+d;
 s:=s+ak;
 end;
writeln('s = ',s);
end.

Пример:
a, d, k:
10 2 5
s = 70

Answer 2

begin обязательно нужны. Это так называемые операторные скобки.

Answer 3

я знаю, но почему их 2

Answer 4

я всегда 1 пишу

Answer 5

Первый begin - начало раздела операторов, второй - начало тела цикла.

Answer 6

Ясно, спасибо.