Помогите пожалуйста!! Задание в Pascal : посчитать количество элементов в последовательности чисел от 1 до 100, которые не делятся нацело на 2 и на 5. Срочно нужно, завтра экзамен в колледже!!!

2

Ответы и объяснения

  • Omgg
  • отличник
2013-05-30T09:59:00+04:00
1)program z; 2)uses crt; 3)var 4) kol, i: integer; 5) 6) begin 7) for i := 1 to 100 do 8) if ((i mod 2 = 0) and (i mod 5 = 0))  then 9) inc(kol); 10) Writeln(kol); 11) end.
2013-05-30T10:49:27+04:00

program kol;

uses crt;

var i,kol:integer;

 

begin

kol:=0;

for i:=1 to 100 do

If (i mod 2<>0) and (i mod 5<>0) then

kol:=kol+1;

writeln(kol);

readln;

end.