В первый час работы, рабочий изготавливает a деталей, за последующий час на d деталей больше, чем за предыдущий. Разработайте программу, которая подсчитает, сколько деталей изготовил рабочий за k часов работы.
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
А почему два begin?
Они обязательно нужны?
Обычно я их не пишу.
begin обязательно нужны. Это так называемые операторные скобки.
я знаю, но почему их 2
я всегда 1 пишу
Первый begin - начало раздела операторов, второй - начало тела цикла.
Ясно, спасибо.