Những câu hỏi liên quan
Mai Phương
Xem chi tiết
Nguyễn Lê Phước Thịnh
31 tháng 3 2022 lúc 22:49

uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

i:=0;

repeat

i:=i+1;

s:=s+i;

until s>1000;

writeln(s);

if (s>1500) then writeln('co')

else writeln('khong');

readln;

end.

Bình luận (0)
Pham Trong Bach
Xem chi tiết
Cao Minh Tâm
2 tháng 6 2018 lúc 13:33

Bình luận (0)
Nguyễn minh Hoàng
Xem chi tiết
Huy Nguyen
Xem chi tiết
Minh Lê
29 tháng 3 2019 lúc 18:38

1) var n,sum;

begin

while sum<=1000 do

begin

n:=n+1;

sum:=sum+n;

end;

write('n=',n);

end.

bài thi bên mình không readln đoạn cuối nha bạn, bạn muốn thì thêm vào nha

Bình luận (1)
Minh Lê
29 tháng 3 2019 lúc 19:15

5)var i,n,tong:longint;

const tich:longint=1;

begin

read(n);

for i:=1 to n do

begin

tong:=tong+i;

tich:=tich*i;

end;

write('tong=',tong);

write('tich=',tich);

end.

Bình luận (0)
Rapton321
28 tháng 3 2019 lúc 20:30

mấy cái khai báo, begin end. ; nhập dữ liệu, xuất dữ liệu bạn tự làm nha

1)sn:=0;i:=1;

while sn<= 1000 do begin

sn:=sn+i;

i:=i+1;

end;

write('n=',i);

2)for i:=1 to 100 do

if i mod 2=0 then write(i,' ');

3) for i:=1 to n do

if i mod 2=0 then write(i,' ');

4)for i:=1 to 100 do

if i mod 2<>0 then write(i,' ');

5)s:=0;t:=1;

for i:=1 to n do

begin

s:=s+i;

t:=t*i;

end;

writeln('tong=',s);

writeln('tich=',t);

Bình luận (0)
Hồ thị mỹ hạnh
Xem chi tiết
JohnBlue
Xem chi tiết
Nguyễn Lê Phước Thịnh
11 tháng 11 2021 lúc 23:27

#include <bits/stdc++.h>

using namespace std;

double n,a,d;

int main()

{

cin>>n>>a>>d;

cout<<fixed<<setprecision(2)<<n*(a+d)/2;

return 0;

}

Bình luận (0)
Phan Thu
Xem chi tiết
Nga Nguyen
6 tháng 4 2022 lúc 14:55

lỗi r bn

Bình luận (0)
Lê Thị Gia Như ღ
Xem chi tiết
Kiều Vũ Linh
23 tháng 2 2023 lúc 11:19

Var s,i:integer;

Begin

s:=0;

i:=0;

While S<1000 do

Begin

i:=i+1;

s:=s+i;

End;

Write('n la ',i);

Readln;

End.

Bình luận (1)
Sky Lawson
Xem chi tiết