Составить программу с постусловием для нахождения произведения чисел от 1 до 15 , имеющий в остатке от деления на 3 число 2.как я поняла,это числа 2,5,8,11 и 14составить программу не могу. Прошу! от этого задания зависит моя четвертная оценка!
Answers & Comments
LichKing132
Написал на Паскале uses crt; var i,n:integer; begin i:=0; n:=1; Repeat if i mod 3=2 then begin n:=n*i; end; i:=i+1; Until i>15; writeln(n); end.
Answers & Comments
uses crt;
var
i,n:integer;
begin
i:=0;
n:=1;
Repeat
if i mod 3=2 then
begin
n:=n*i;
end;
i:=i+1;
Until i>15;
writeln(n);
end.