Ввести 100 членов арифметической прогрессии( каждое - вопрос №3615102100 от kirmakcim553 25.09.2021 18:30

Question

Информатика: Ввести 100 членов арифметической прогрессии( каждое число прибавляется на 3)

kirmakcim553 · Answer

Var A, i, k, max: integer;begini := 3;max := 100;for k := 1 to max do beginA := A + i;write( A, );end;end....