Составить блок схему. даны натуральные числа от 20 до 50. вывести те из них, которые делятся на 3, но
не делятся на 5. нужно. заранее !

Question

Информатика: Составить блок схему. даны натуральные числа от 20 до 50. вывести те из них, которые делятся на 3, но не делятся на 5. нужно. заранее !

pragravra · Accepted Answer

Var i:integer;

begin

for i:=100 to 999 do if(i mod 6 =0) and (i mod 4 = 0) and (i mod 10 = 8) then write(i, ' ');

end.

{While}

Var i:integer;

begin

i:=100;

while i<=999 do begin

if( if(i mod 6 =0) and (i mod 4 = 0) and (i mod 10 = 8) then write(i, ' '); inc(i); end;

end.

{Repeat}

Var i:integer;

begin

i:=100;

repeat

begin

if(i mod 6 =0) and (i mod 4 = 0) and (i mod 10 = 8) then write(i, ' ');

inc(i); end;

until i<1000;

end.