1) Vẽ sơ đồ khối vòng lặp chưa xác định?
2) Viết chương trình in ra bảng cửu chương 6 sử dụng vòng lặp While … do?
1) Vẽ sơ đồ khối vòng lặp chưa xác định?
2) Viết chương trình in ra bảng cửu chương 6 sử dụng vòng lặp While … do?
Bài 1: Hình
Bài 2:
program cuuchuong6;
uses crt;
var i:byte;
begin
clrscr;
writeln(‘Bang cuu chuong 6 la: ‘);
i:=1;
while i<=10 do
begin
writeln(‘6*’,i,’= ‘,6*i);
i:=i+1;
end;
readln
end.
uses Crt;
Var N, i:integer;
Begin
clrscr;
write(‘Nhap vao mot so nguyen: ‘);
readln(N);
If N<=1 then
writeln(‘N khong la so nguyen to’)
else
begin
i:=2;
while (N mod i<>0) do
i:=i+1;
if i=N then
writeln(N,’ la so nguyen to!’)
else
writeln(N,’ khong phai la so nguyen to!’);
end;
readln;