ai giúp tớ với viết phương trình pascal đếm số chẵn từ 1 đến 100

0 bình luận về “ai giúp tớ với viết phương trình pascal đếm số chẵn từ 1 đến 100”

1. program oken;
   uses crt;
   var i,dem: byte;
   begin
           clrscr;
           for i:=1 to 100 do
                   if i mod 2=0 then
                           dem:=dem+1;
           writeln(‘co ‘,dem,’ so chan tu 1 den 100′);
           readln;
   end.

   Bình luận

2. var i:integer;

   begin

   for i:=1 to 100 do

   if i mod 2=0 then writeln (i);

   readln;

   end.

   Bình luận