Những câu hỏi liên quan
Xuân Bách Đoàn
Xem chi tiết
😈tử thần😈
27 tháng 5 2021 lúc 16:33

Dài quá bạn nên đăng mỗi lần 5-> 10 câu cho dễ đọc 

Bình luận (0)
Nguyễn Huỳnh Đổng Chi
Xem chi tiết
Minh Lệ
6 tháng 4 2023 lúc 22:40

Program HOC24;

var a,b: integer;

begin

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

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

 

if a> b then write(a);

if a<b then write(b);

if a=b then write('2 so bang nhau');

readln

end.

Bình luận (0)
Trương Quang Đang
Xem chi tiết
Minh Lệ
16 tháng 3 2023 lúc 21:51

Program HOC24;

var i: byte;

begin

for i:=0 to 76 do write(i,' ');

readln

end.

Bình luận (2)
Nguyễn Huỳnh Đổng Chi
Xem chi tiết
Kiều Vũ Linh
7 tháng 4 2023 lúc 7:19

Var a,b:real;

Begin

Write('a = ');readln(a);

Write('b = ');readln(b);

If a > b then write('So lon la ',a:10:2)

Else if b > a then write('So lon la ',b:10:2)

Else write('Hai so bang nhau');

Readln;

End.

Bình luận (2)
ngocanh
Xem chi tiết
ngocanh
1 tháng 12 2021 lúc 22:08

giúp em với

 

Bình luận (0)
Trần Minh Tâm
1 tháng 12 2021 lúc 22:33

Câu 3:

program cauba;

int chieudai, chieurong, chuvi, dientich :real;

begin

write('Chieu dai la: '); Readln(chieudai);

write('Chieu rong la: '); Readln(chieurong);

chuvi = (chieudai + chieu rong)*2;

dientich= chieudai*chieurong;

writeln('Chu vi la: ',chuvi);

writeln('Dien tich la: ',dientich);

end.

 

Bình luận (0)
Trần Minh Tâm
1 tháng 12 2021 lúc 22:33

Caua1:

program caumot;

begin

writeln('lop 8A chao ban!');

end.

Câu 2:

program cauhai;

int a,b,c :real;

begin

write('a='); readln(a);

write('b='); readln(b);

c= a+b;

write('Tong hai so a b la:',c);

end.

Bình luận (0)
Hoàng Thị Mỹ Phan
Xem chi tiết
Vũ Điệu Công
Xem chi tiết
Kiều Vũ Linh
23 tháng 5 2023 lúc 6:18

Var a,b,ta,tb,r,ucln:integer;

Begin

Write('a = ');readln(a);

Write('b = ');readln(b);

ta:=a;

tb:=b;

While tb <> 0 do

Begin

r:=ta mod tb;

ta:=tb;

tb:=r;

End;

ucln:=ta;

Write('UCLN(',a,' ',b,') = ',ucln);

Readln

End.

Bình luận (0)
Kamato Heiji
Xem chi tiết
Minh Lệ
13 tháng 3 2021 lúc 14:18

Cách 1: while..do

Program HOC24;

var i: integer;

begin

i:=1;

while i<30 do

begin

write(i,' ');

i:=i+1;

end;

readln

end.

Cách 2: for..do

Program HOC24;

var i: integer;

begin

for i:=1 to 29 do write(i,' ');

readln

end.

Bình luận (0)
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.

Bình luận (0)