В первый час работы рабочий изготавливает а деталей,за каждый последующий час- ** d...

Question

В первый час работы рабочий изготавливает а деталей,за каждый последующий час- на d деталей больше,чем за предыдущий. Разработайте программу,которая подсчитай,сколько деталей изготовил рабочий за 8 часов работы.Зафиксируйте свои действия на каждом из этапов решения этой задачи.

Comments

Program A3;vara,b,c,i:integer;beginwriteln('Vvedi kol-vo detaley v chas');readln(a);writeln('Vvedi na skolko yvelichitsya kol-vo detaley');readln(b);writeln('V 1 chas on sdelaet ',a,' detaley');for i:=2 to 8 do begina:=a+b;writeln('V ',i,' chas on sdelaet ',a,' detaley');end;end.

---

навсякий случай предлагаю добавить Readln(c) между end; и end. (которые на предпоследней и последней строчке)

---

Readln(c);

---

Точку с запятой конечно же надо поставить)

---

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

---

Есть другой вариант, чтобы он выдавал сразу за 8 часов, без отчитывания за каждый час)

---

Program A3;vara,b,c,i:integer;beginwriteln('Vvedi kol-vo detaley v chas');readln(a);writeln('Vvedi na skolko yvelichitsya kol-vo detaley');readln(b);for i:=2 to 8 do begina:=a+b;end;writeln('za 8 chasov on sdelaet ',a,' detaley');end.

---

если помог нажми спасибку (голуб кнопка)))

Answer 1

Program A3;vara,b,c,i:integer;beginwriteln('Vvedi kol-vo detaley v chas');readln(a);writeln('Vvedi na skolko yvelichitsya kol-vo detaley');readln(b);writeln('V 1 chas on sdelaet ',a,' detaley');for i:=2 to 8 do begina:=a+b;writeln('V ',i,' chas on sdelaet ',a,' detaley');end;end.