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

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.

9 tháng 12 2020

program h;

uses crt;

var a,b,h:integer;

begin

h:=0

write('so thu nhat');readln(a);

write('so thu hai');readln(b);

h:=a*b;

write('h hai so la',h);

readln

end.

7 tháng 3 2019

n=78

7 tháng 3 2019