Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Quyên
Xem chi tiết
Nguyễn Huỳnh Đổng Chi
Xem chi tiết
Minh Lệ
6 tháng 4 2023 lúc 22:40

Program HOC24;

var i,s: byte;

begin

s:=0;

for i:=1 to 10 do s:=s+i;

write('S = ',s);

readln

end.

night
Xem chi tiết
Nguyễn Lê Phước Thịnh
7 tháng 5 2021 lúc 22:35

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

i:=5;

while i<=10 do 

 begin

t:=t+i;

i:=i+1;

end;

writeln(t);

readln;

end.

Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
27 tháng 8 2017 lúc 18:13

Đáp án A

Linh Nhi
Xem chi tiết
Nguyễn Lê Phước Thịnh
4 tháng 3 2022 lúc 9:22

a: uses crt;

var i,n:integer;

s:real;

begin

clrscr;

s:=0;

for i:=1 to 100 do s:=s+1/i;

writeln(s:4:2);

readln;

end.

b: 

uses crt;

var i,n:integer;

s:real;

begin

clrscr;

s:=0;

i:=0;

while i<=100 do 

begin

inc(i);

s:=s+1/i;

end;

writeln(s:4:2);

readln;

end.

Trần Hải Đăng
Xem chi tiết
Nguyên Khôi
12 tháng 11 2021 lúc 8:41

C

Đan Khánh
12 tháng 11 2021 lúc 8:42

C

nguyenhoang
Xem chi tiết
Trần Văn Tích
Xem chi tiết
Nguyễn Lê Phước Thịnh
24 tháng 1 2021 lúc 22:37

uses crt;

var i,n:integer;

begin

clrscr;

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

writeln('Bang cuu chuong ',n,' la: ');

for i:=1 to 10 do 

  writeln(n,'*',i,'=',n*i);

readln;

end.

Le Van Dai
Xem chi tiết
Phía sau một cô gái
4 tháng 5 2023 lúc 20:26

program TinhTongTich;

var

      N, i, Tong, Tich:integer;

begin

      writeln('Nhap so nguyen duong N:');

      readln(N);

      i:=1;

      Tong:=0;

      Tich:=1;

      while i<=N do

      begin

            Tong:=Tong+i;

            Tich:=Tich*i;

            i:=i+1;

      end;

      writeln('Tong cac so tu 1 den ', N, ' la: ', Tong);

      writeln('Tich cac so tu 1 den ', N, ' la: ', Tich);

      readln;

end.