Lê Trọng Nghĩa
Sắt đoàn
10
2
Câu trả lời của bạn: 11:17 15/11/2022
1)
program bt1;
use crt;
Var x,y,S: Integer;
Begin
Write('nhap x=');
Read(x);
Write('nhap y=');
Read(y);
S:=x*y;
Write('dien tich la : ',S);
Readln;
End.
2)
program bt2;
use crt;
Var a,b,c: Real;
Begin
Write('nhap a');
Read(a);
Write('nhap b');
Read(b);
c:=a+b;
Write('tong cua hai so nguyen : ',c);
Readln;
End.
3)
program bt3;
use crt;
Var a,b, A: Real;
Begin
Write('nhap a');
Read(a);
Write('nhap b')
Read(b);
A:=a+b/2;
Write('gia tri của bieu thuc A: ',A);
Readln;
End.
4)
program bt4;
use crt;
Var a,b,B: Real;
Begin
Write('nhap a');
Read(a);
Write('nhap b');
Read(b);
B=a*b/2;
Write('gia tri bieu thuc B: ',B);
Readln;
End.
5)
program bt5;
use crt;
Var a,b,c,C: Integer;
Begin
Write('nhap a');
Read(a);
Write('nhap b');
Read(b);
Write('nhap c');
Read(c);
C=4*(a+b+c);
Write('ket qua cua bieu thuc C:'C);
Readln;
End
Câu trả lời của bạn: 11:16 15/11/2022
1)
program bt1;
use crt;
Var x,y,S: Integer;
Begin
Write('nhap x=');
Read(x);
Write('nhap y=');
Read(y);
S:=x*y;
Write('dien tich la : ',S);
Readln;
End.
2)
program bt2;
use crt;
Var a,b,c: Real;
Begin
Write('nhap a');
Read(a);
Write('nhap b');
Read(b);
c:=a+b;
Write('tong cua hai so nguyen : ',c);
Readln;
End.
3)
program bt3;
use crt;
Var a,b, A: Real;
Begin
Write('nhap a');
Read(a);
Write('nhap b')
Read(b);
A:=a+b/2;
Write('gia tri của bieu thuc A: ',A);
Readln;
End.
4)
program bt4;
use crt;
Var a,b,B: Real;
Begin
Write('nhap a');
Read(a);
Write('nhap b');
Read(b);
B=a*b/2;
Write('gia tri bieu thuc B: ',B);
Readln;
End.
5)
program bt5;
use crt;
Var a,b,c,C: Integer;
Begin
Write('nhap a');
Read(a);
Write('nhap b');
Read(b);
Write('nhap c');
Read(c);
C=4*(a+b+c);
Write('ket qua cua bieu thuc C:'C);
Readln;
End
