VCT đếm xem có bao nhiêu số chẵn từ 1-10.In đếm

2 câu trả lời

Program baitap;

Uses crt;

Var i,dem:integer;

Begin

Clrscr;

dem:=0;

For i:=1 to 10 do If (i mod 2=0) then dem:=dem+1;

Writeln('Co ',dem,' so chan tu 1 den 10');

Readln

End.

uses crt;

var k, d : integer;

begin

clrscr;

for k := 1 to 10 do

if k mod 2 = 0 then d := d + 1;

writeln('co ', d ,' so chan tu 1 - 10');

readln

end.