Những câu hỏi liên quan
Phạm Phương
Xem chi tiết
Kim Thoa Le Thi
Xem chi tiết
TÌNH ĐIÊN DẠI
Xem chi tiết
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 Huỳnh Đổng Chi
Xem chi tiết
Phía sau một cô gái
7 tháng 4 2023 lúc 21:03

program tong_so;

var

     tong, so: integer;

begin

     tong := 0;

     while tong < 20 do

     begin

          write('Nhập số nguyên: ');

          readln(so);

          tong := tong + so;

     end;

     writeln('Tổng các số đã nhập là: ', tong);

end.

nhật nguyên
Xem chi tiết
Mai Bảo Cường
Xem chi tiết
Nguyễn Lê Phước Thịnh
6 tháng 10 2021 lúc 15:19

uses crt;

var x,y:integer;

begin

clrscr;

readln(x);

y:=sqr(x);

writeln(y);

readln;

end.

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.

Gia Kỳ
Xem chi tiết
Minh Lệ
14 tháng 3 2023 lúc 21:27

Program HOC24;

var i,n,max: integer;

a: array[1..1000] of integer;

begin

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

i:=1; max:=-1;

while i<=n do

begin

write('Nhap so thu ',i,': '); readln(a[i]);

if a[i]>max then max:=a[i];

i:=i+1;

end;

write('So lon nhat la: ',max);

readln

end.