profile
Опубликовано 6 лет назад по предмету Информатика от maximym

Задача в pascal abc net:

Вычислить произведение с помощью цикла "До(repeat)"

(3+f)*(6+f)*(9+f)*...*(27+f)

  1. Ответ
    Ответ дан archery

    var s,i,f:integer;

    Begin

      read(f);

      s:=1;

      repeat

        i:=i+3;

        s:=s*(i+f);

      until i>=27;

      writeln(s);

    End.

Самые новые вопросы