1) Khai báo biến x,y là các số nguyên, S là tích của 2 số x,y
2) Viết công thức tính tổng của 2 số a,b được nhập từ bàn phím
3) Viết chương trình tính giá trị của biểu thức A = a+b2a+b2 , với a,b là các số được nhập từ bàn phím
4) Viết chương trình tính giá trị của biểu thức B = ab2ab2 , với a,b là các số được nhập từ bàn phím 5) Viết chương trình tính C = 4.(a+b+c) là các số nguyên được nhập từ bàn phím
Quảng cáo
3 câu trả lời 171
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
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
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
Quảng cáo
Bạn muốn hỏi bài tập?
Câu hỏi hot cùng chủ đề
-
4197
-
I miss you
4255 điểm
-
` ✧`
2735 điểm
-
Judy Hopps
1410 điểm
-
⋆˚࿔ neuemla... 𝜗𝜚˚
1360 điểm
-
bích hồng nguyễn 1080 điểm
-
iu vk vãi cak
735 điểm
-
`color{red}text{HuyTùng`
530 điểm
-
`\color{pink}\text{d.`
520 điểm
-
chê ng tốt chốt ng tồi.
460 điểm
-
(┬┬﹏┬┬) 𝙻𝚘𝚟𝚎𝚒𝚜𝚝𝚛𝚞𝚎💔
450 điểm
-
chao.ngdep
445 điểm
-
౨ৎ𝘉ắ𝘱ت𝘭𝘶ộ𝘤تđê⋅˚₊‧ ଳ⋆.࿔*:･🌽
415 điểm
-
Haruto[pad] 395 điểm
-
lạnh ôm jet (:
380 điểm
Rút gọn
Bài viết mới nhất Lớp 8
-
3 năm trước8205
-
3 năm trước7720
-
3 năm trước6556
-
3 năm trước6448
-
3 năm trước6271
