trò chơi "ăn táo"
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.
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...
Program dien_tích_tamgiac;
Var a , h . Read;
Begin
Write ('nhap a ='); Readln (a);
Write ('nhap chieu h ='); Readln (h);
Writeln ('dien h tam giac la:'S=1/2*a*h:4:2);
Readln;
End.
bạn hỏi thế này ai mà chả lời được hả bạn
???????????????????????????????????????