minh co mot bai tap kiem tra mot tiet nhu sau
bai 1 :xuat ra man hinh 20 so chinh phuong
bai 2: diem co bao nhieu so nguyen to tu 1--> 1000 va xuat ra cac so do
*** mong duoc moi nguoi giup do***
Bài 1
uses crt;
var i:integer;
begin
clrscr;
for i:=1 to 20 do write(i*i,' ');
readln;
end.
Bài 2
var i,j,dem:integer;nto:boolean;
dem:=0;
for i:=1 to 1000 do
nto:=true;
for j:=2 to i div 2 do
if i mod j =0 then
nto:=false;
break;
end;
if nto=true then
write(i:4);
dem:=dem+1;
writeln;
writeln('Co ',dem,' so nguyen to');
XOng rồi nè
shope
nhu loz
Copyright © 2024 VQUIX.COM - All rights reserved.
Answers & Comments
Verified answer
Bài 1
uses crt;
var i:integer;
begin
clrscr;
for i:=1 to 20 do write(i*i,' ');
readln;
end.
Bài 2
uses crt;
var i,j,dem:integer;nto:boolean;
begin
clrscr;
dem:=0;
for i:=1 to 1000 do
begin
nto:=true;
for j:=2 to i div 2 do
if i mod j =0 then
begin
nto:=false;
break;
end;
if nto=true then
begin
write(i:4);
dem:=dem+1;
end;
end;
writeln;
writeln('Co ',dem,' so nguyen to');
readln;
end.
XOng rồi nè
shope
nhu loz