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.

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...

3 tháng 12 2020

you thik chơi game:

2.Freefire

21 tháng 12 2020

Free Fire

Trường mk ko có tin học 6 nên bạn thông cảm !

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.

9 tháng 12 2020

INPUT: nhập số tự nhiên bất kì a

OUTPUT: chạy vòng For..to..do tìm các ước rồi in ra màn hình.

6 tháng 10 2021

sắc s

huyền f

ngã x

hỏi r

nặng j

30 tháng 11 2020

bạn hỏi thế này ai mà chả lời được hả bạn

???????????????????????????????????????

30 tháng 11 2020
Lưu bài là sao???????
28 tháng 11 2020

Hình vuông bạn nha

14 tháng 12 2020

hình vuông