Những câu hỏi liên quan
Minh Ngọc
Xem chi tiết
Nguyễn Lê Phước Thịnh
11 tháng 3 2022 lúc 9:44

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 100 do t:=t+i;

writeln(t);

readln;

end.

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

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 100 do t:=t+i;

writeln(t);

readln;

end.

Bình luận (0)
Nguyễn Ngọc Thanh Vân
Xem chi tiết
PHẠM THU HÀ
Xem chi tiết
KhảTâm
7 tháng 3 2021 lúc 15:45

 Bài toán cổ nào vậy bạn?

Bình luận (0)
 Khách vãng lai đã xóa
Nguyễn Thuỳ Linh
Xem chi tiết
Nguyễn Lê Phước Thịnh
4 tháng 5 2021 lúc 13:57

uses crt;

var n,x:integer;

begin

clrscr;

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

writeln('n=',n);

x:=n;

if x mod 2=0 then writeln(x,' la so chan')

else writeln(x,' la so le');

readln;

end.

Bình luận (0)
NGUYỄN LÊ XUÂN THỊNH
Xem chi tiết
Kiều Vũ Linh
23 tháng 2 2023 lúc 11:23

Bài 1

Var s,i:integer;

tb:real;

Begin

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

i:=1;

s:=0;

While i<=n do

Begin

s:=s+i;

i:=i+1;

End;

tb:=s/n;

Writeln('Tong la ',s);

Write('Trung binh la ',tb:10:2);

Readln;

End.

Bình luận (1)
Kiều Vũ Linh
23 tháng 2 2023 lúc 11:27

Bài 2

Var i,n,souoc:integer;

Begin

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

i:=1;

While i <= n do

Begin

i:=i + 1;

If n mod i = 0 then souoc:=souoc + 1;

End;

If souoc = 1 then write(n,' la so nguyen to')

Else write(n,' khong la so nguyen to');

Readln;

End.

Bình luận (1)
nguyễn văn kiên
Xem chi tiết
Hạ Thanh
Xem chi tiết
Nguyễn Lê Phước Thịnh
11 tháng 11 2021 lúc 23:26

Câu 2: 

uses crt;

var x,y:int64;

begin

clrscr;

readln(x,y);

writeln(x+y);

readln;

end.

Bình luận (0)
An An
Xem chi tiết