giúp mình với ạ

1.

use crt;
Var a, b: real;
Begin
write('Nhap so a: '); readln(a);
write('Nhap so b: '); readln(b);
if a<b then write('so a nho hon') else write('so b nho hon');
readln;
end.

2. a và b có khác nhau?

uses crt;

var a,b: integer;

begin

clrscr;

readln(a);

readln(b);

if a>b then writeln(a,' ',b)

else writeln(b,' ',a);

readln;

end.

(không đầy đủ lắm đâu)

3.

var a,b,c,max : integer;


Begin

writeln('Tim MAX cua 3 so a,b,c');

write('Nhap so a :');readln(a);
write('Nhap so b :');readln(b);
write('Nhap so c :');readln(c);

max:= a;

if max < b then max := b;
if max < c then max := c;

writeln( 'So Max trong 3 so la : ', max );

readln;

end.

4.

var n:integer;
begin
wirite ( 'nhap gia tri cua x: ' );
readln (n);
if x mod 2 = 0 then write ( 'x la so chan' )
else wirite ( 'x la so le' );
end.

5.

uses crt;
var n:intger;
begin
clrscr;
writeln('nhap vao so nguyen duong:');
readln(n);
if n >= 0 then
writeln('so ',n,' la so duong')
else
writeln('so ',n,' la so am');
if (n mod 2 = 0) then
writeln('so ',n,' la so chan')
else
writeln('so ',n,' la so le.');
readln;
end.

(Công sức đấy! Chúc bạn học tốt!)

À thôi em nghĩ ra rồi =))) Mọi người trả lời thoải mái

Câu này mình đang cần trả lời nè ạ, bạn biết rồi thì vui lòng chỉ giúp mình với !!

s:real;

a,h:Integer;

c:Integer;

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 )

Uses crt;

Var a,b : integer;

Begin

Writeln('Tong hai so a va b la= ', a + b );

Readln;

End.

Cho phép viết lại :)

Uses crt;

Var a,b:integer;

Begin

clrscr;

Writeln('Nhap so a = '); Readln(a);

Writeln('Nhap so b = '); Readln(b);

Writeln('Tong hai so a va b la = ',a+b);

Readln;

end.

uses crt;

var a,b,c,s,x:integer;

begin

clrscr;

write('hs_lop');

writeln('nhap 3 so=');readln(a,b,c);

begin

s:=a+b+c;

writeln('tong la:',s);

x:=a*b*c;

writeln('tich la:',x);

end;

if a mod 2 =0 then writeln(a,'la so chan')

else write('a,'la so le');

readln;

end.

mình ko chắc pn kt thử xem

bạn ơi! Có thể cho mình hỏi bn dùng phần mềm lập trình gì được không ạ ?

xác định bài toán , mô tả thuật toán và viết chương trình

a)nhập vào 2 số nguyên a,b in ra a,b theo thứ tự không giảm

b) nhập 2 số nguyên a,b cho kết quả so sánh 2 số a,b

c) Nhập số nguyên n kiểm tra n là số chẵn hay lẻ

giúp mik với

B vào link này tham khảo xem https://cunghocvui.com/danh-muc/tin-hoc-lop-8

-so sanh hai so nhap tu ban phim:

var a,b:integer;

begin

clrscr;

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

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

if a>b then writeln(a,'lon hon',b)

else writeln(a,'nho hon,'b);

if a=b then writeln(a,'bang',b);

readln;

end.

program ctdt;
uses crt;
type mang=array[1..10]of integer;
var a,b,min,x,y,i,j,tam:integer;
t,t1:mang;
(*------------------------*)
BEGIN
clrscr;
(*cau a*)
write('nhap 2 so:');readln(a,b);
if a>b then writeln(a,' lon hon ',b);
if a=b then writeln(a,' bang ',b);
if a<b then writeln(a,' nho thua ,b);
(*cau b*)
for i:=1 to 4 do {dua 4 so vao 1 mang}
begin
write(so thu ',i,' :');readln(t[i]);
end;
min:=t[1];
for i:=2 to 4 do
if t[i]<min then min:=t[i];
writeln('so nho nhat trong bon so:',min);
(*cau c*)
write('nhap hai so x,y:');readln(x,y);
if x>y then
begin
tam:=x;
x:=y;
y:=tam;
end;
(*cau d*)
for i:=1 to 3 do {dua 3 so vao mot mang}
begin
write(' so thu ',i,': ');readln(t1[i]);
end;

for i:=1 to 3-1 do
for j:=i+1 to 3 do
if t1[j]>t1[i] then
begin
tam:=t1[j];
t1[j]:=t1[i];
t1[i]:=tam;
end;
for i:=1 to 3 do
write(t1[i]);

readln;
end.

bai nay con vai loi sai nho

ban nen chay tung cau mot va khoa cac cau con lai bang lenh {...}

3) var a,b:integer;

begin

write('a=');readln(a);

write('b=');readln(b);

if (a<b) then write(' Thu tu tang dan cua 2 so la: ',a,' va ',b)

else write(' Thu tu tang dan cua 2 so la: ',b,' va ',a);

readln;

end.

1)

var a,b:integer;

begin

write('a=');readln(a);

write('b=');readln(b);

writeln(' Tong cua ',a,' va ',b,' la ',a+b);

writeln(' Hieu cua ',a,' va ',b,' la ',a-b);

writeln(' Tich cua ',a,' va ',b,' la ',a*b);

if b<>0 then writeln(' Thuong cua ',a,' va ',b,' la ',a/b);

readln;

end.