Турбо Паскальдан есеп шығарып берсеңіздер

Question

200-ге дейінгі бүтін сандардың 25-ке қалдықсыз бөлінетін сандарды нешеу екенін анықта

Answer 1

 8 болады; 25,50,75,100,125,150,175,200.

Паскаль программасымен шығарғам жоқ бірақ

 

Answer 2

var i,j: integer;

Begin

j:=0;

for i:=1 to 200 do

if i mod 200 = 0 then begin write(i ,'  '); j:=j+1; end;

writeln;

write('sany: ', j);

end.