profile

Опубликовано 5 лет назад по предмету Информатика от kviriliani

Составить программу, которая находит произведение однозначных чисел кратных 3

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

    program raf105;

    var i,pro: integer;

    begin

    pro:= 1;

    for i:=1 to 9 do

     if (i mod 3)=0

       then pro:= pro * i;

    writeln(pro);

    end.

    Язык PascalABC

Войдите или зарегистрируйтесь, чтобы добавить ответ или свой вопрос на сайт


Другие вопросы