việt hoàng

Những câu hỏi liên quan
Nguyễn Linh
Xem chi tiết
Nguyễn Lê Phước Thịnh
7 tháng 4 2021 lúc 13:34

uses crt;

var x:real;

begin

clrscr;

repeat

  write('Nhap diem:'); readln(x);

until (0<=x) and (x<=10) and ((frac(x)=25) or (frac(x)=5) or (frac(x)=75) or (frac(x)=0));

writeln(x:4:2);

readln;

end.

Bình luận (0)
huynh phuong
Xem chi tiết
Nguyễn Lê Phước Thịnh
1 tháng 3 2021 lúc 12:43

uses crt;

var n,dem:integer;

begin

clrscr;

dem:=0;

repeat

write('Nhap n='); readln(n);

dem:=dem+1;

until n=0;

writeln(dem);

readln;

end.

Bình luận (0)
Phan Thu
Xem chi tiết
Nguyễn Ally
Xem chi tiết
Nguyễn Lê Phước Thịnh
22 tháng 8 2021 lúc 0:22

uses crt;

var n,t1:integer;

s:real;

begin

clrscr;

t1:=0;

s:=1;

repeat

readln\(\left(n\right)\);

if n mod 2=0 then t1:=t1+n

else s:=s*n;

until n=0;

writeln\(\left(t1\right)\);

writeln\(\left(s:4:2\right)\);

readln;

end.

Bình luận (0)
Giap Nguyen Van
Xem chi tiết
Nguyễn Lê Phước Thịnh
11 tháng 3 2022 lúc 15:48

uses crt;

var n,i,t1,t2:integer;

begin

clrscr;

t1:=0;

t2:=0;

repeat

readln(n);

if n mod 2=0 then t1:=t1+n

else t2:=t2+n;

until n=0;

writeln(t1,' ',t2);

readln;

end.

Bình luận (0)
An An Nguyễn
Xem chi tiết
Logan
Xem chi tiết
Nguyễn Lê Phước Thịnh
8 tháng 9 2021 lúc 21:40

uses crt;

var n,t:integer;

{------------------kiem-tra-so-nguyen-to----------------------------}

function ktnt(x:integer):boolean;

var i:integer;

kt:boolean;

begin

kt:=true;

for i:=2 to trunc(sqrt(x)) do 

  if x mod i=0 then 

begin

kt:=false;

break;

end;

if kt=true then ktnt:=true

else ktnt:=false;

{----------------------chuong-trinh-chinh------------------------}

begin

clrscr;

t:=0;

repeat

  write('Nhap n='); readln(n);

if (n mod 2=0) then t:=t+n;

until ktnt(n)=false;

writeln(t);

readln;

end.

Bình luận (0)
日光
Xem chi tiết
Ng Ngọc
10 tháng 3 2022 lúc 9:46

???

Bình luận (0)
Kaito Kid
10 tháng 3 2022 lúc 9:46

???

Bình luận (0)
Keiko Hashitou
10 tháng 3 2022 lúc 9:46

ko đăng linh tinh

Bình luận (0)
HIển Long Đặng Hồ
Xem chi tiết