Em hãy viết một chương trình pascal cơ bản có dùng câu lệnh lặp while do 07/08/2021 Bởi Parker Em hãy viết một chương trình pascal cơ bản có dùng câu lệnh lặp while do
Mình cho VD này nha : VD: Viết chương trình nhập vào số nguyên dương N và kiểm tra N có phải là số nguyên tố không ? Bình luận
program ct; uses crt; var i:integer; S:real; begin S:=0; i:=1; while i<=100 do begin S:=S+1/i; i:=i+1; end; writeln(‘tong la:’,S); readln end. Bình luận
Mình cho VD này nha :
VD: Viết chương trình nhập vào số nguyên dương N và kiểm tra N có phải là số nguyên tố không ?
program ct;
uses crt;
var i:integer; S:real;
begin
S:=0; i:=1;
while i<=100 do
begin
S:=S+1/i;
i:=i+1;
end;
writeln(‘tong la:’,S);
readln
end.