K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

4 tháng 12 2020

hello

sorry bạn mình có tận 21 bạn rồi

9 tháng 12 2020

1,

program so_nguyen;

uses crt;

var a,b:real;

begin

writeln('Nhap so thu nhat');,readln(a);

writeln('Nhap so thu hai');readln(b);

If (a>0) and (b>0) then writeln('cung dau') else write('khong cung dau');

If (a<0) and (b<0) then writeln('cung dau') else write('khong cung dau');

2,, program so_nguyen;

uses crt;

var a,b:real;

begin

writeln('Nhap so thu nhat');,readln(a);

writeln('Nhap so thu hai');readln(b);

If a>b then write('so thu nhat lon hon');

If a<b then write('so thu hai lon hon');

readln

end.(Pascal nha) - Có thể dùng If...then... hoặc while...do...