Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Напишите програму вычисления произведений :
всех чисел от 1 до 100, кратных 3,но некратных 6.

Ответ оставил Гость

uses crt;
var p,i:integer;
begin
  clrscr;
  writeln(chisla:);
  p:=1;
  for i:=1 to 100 do
    if (i mod 3 = 0)and (i mod 6 <> 0) then
    begin
      p:=p*i;
      write(i, );
    end;
  writeln;
  write(proizv.=,p);
end.