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.

11 tháng 12 2021

giúp Mình vs.

Mình cần gấp lắm

 

11 tháng 12 2021

Chỉ cần hai biến a,b kiểu nguyên là đủ rồi

10 tháng 12 2021

var a,b:longint;

s,p:real;

ht,cs:string;

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

writeln(a*b);

if (a>0) then writeln('a la so nguyen duong')

else writeln('a la so nguyen am');

readln;

end.

28 tháng 12 2021

a, b : integer 

if (a+b>8) 

28 tháng 12 2021

c=5-10=-5

uses crt;

var a,b:int64;

begin

clrscr;

readln(a,b);

writeln(a+b);

readln;

end.

1 tháng 10 2018

s:real;

a,h:Integer;

c:Integer;

20 tháng 11 2021

Các kiểu dữ liệu của các biến cần khai báo :

a) a, h : integer

S : real

Giải thích lý do S không thể là integer : a , h có thể là số nguyên, S=a*h/2 ; a * h chưa chắc là 1 số chẵn nên chia 2 có thể ra số thập phân.

b) c, d : integer ( phần nguyên và phần dư đều là số nguyên )

30 tháng 12 2022

Input: a,b

Output: max,min của hai số a,b

31 tháng 10 2021

Câu 3: 

const pi=3.14

var x,y:real;

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

writeln(a+b);

readln;

end.

7 tháng 11 2021

Program tinh_tong;

uses crt;

var a,b:Integer;

begin

Write('Nhap gia tri a: ');

Readln(a);

Write('Nhap gia tri b: ');

Readln(b);

Writeln('Tong: ',a+b);

Readln();

end.