Viết chương trình Pascal tính các phép tính sau: 5 div 2 = , 5 mod 2 = , 2007 + 5123 = , 1927.5 / 3 = *
Viết chương trình in ra màn hình các phép tính sau:
a/ 16 div 3; b/ 15 mod 3; c/1.2+1.2.3+1.2.3.4.
Tham khảo :
Writeln('16 div 3=', 16 div 3);
Writeln('15 mod 3=', 15 mod 3);
Writeln('1.2+1.2.3+1.2.3.4=',1*2+1*2*3+1*2*3*4);
Tính kết quả các phép tính sau : a) 5 div 2+5 mod 2= b) (15 mod 3)*(17 div 2)= Gấp ạ cíu emmmmmm
Viết chương trình in ra màn hình kết quả phép toán : write(9x3):3 (5²-9):7+1:8 9 mod 2 8 div 3
1-Viết chương trình tính các biểu thức sau:
a.3^2X 18 –3^2X 12=
b.[(245 div 10) div 3] mod 2 =
2-Viết chương trình nhập chiều dài và chiều rộng của hình chữ nhật. Tính chu vi và diện tích của hình chữ nhật.
giúp mik với ạ
Câu 1: viết chương trình tính a*b*c với a,b,c nhập từ bàn phím *
câu 2 viết chương trình tính x*x+y*y với x,y Nhậptừ bàn phím *
Câu 3 viết chương tính (a div b)+ (a mod b) với a,b nhập từ bàn phím *
Câu 4: Viết chương trình nhập vào 5 số a,b,c,d,e tính trung bình công của 4 số đó
Câu 1:
#include <bits/stdc++.h>
using namespace std;
double a,b,c;
int main()
{
cin>>a>>b>>c;
cout<<fixed<<setprecision(2)<<a*b*c;
return 0;
}
1.Viết chương trình các biểu thức sau: (20×4)-100 div (10 mod 5) 2. Căn của 60 : căn của 6
2:
#include <bits/stdc++.h>
using namespace std;
int main()
{
cout<<fixed<<setprecision(2)<<sqrt(60)/sqrt(6);
return 0;
}
Thực hiện các phép tính sau:
a/. (100 Mod 20) + 5 b/ ( 50 Div 5 ) / (10 mod 3 )
c/. (320 div 5) / (50 mod 6) d/ ( 75 div 15) x 12
Câu 1: Hãy tính kết quả các phép toán sau :
A. 155/5=
B. 155 div 5 =
C. 155 mod 5 =
D. 1255 div 20=
E. 1255 mod 20=
A= 155:5=31
B= 155:5 (Lấy phần nguyên)= 31
C= 155:5 (Lấy số dư) = 0
D=1255:20 (Lấy phần nguyên)= 62
E=1255:20(Lấy số dư) = 15
(nhớ tick nha)
viết chương trình cho máy tính thực hiện phép tính A= 1+2+3... với a > or < 1500 pascal
*Khi A lớn nhất và A >=1500
Var i,A: integer;
Begin
While A<1500 do
Begin
i:=i+1;
A:=A+i;
End;
Write('Tong cua A la: ',A); [Hoặc Write('Tong cua A la:',A,' va can co ',i,' so') {Để in ra màn hình cần bao nhiêu số để có tổng >1500 ]
Readln
End.
*Khi A lớn nhất và A<1500
Var i,A:integer;
Begin
i:=0; A:=0;
While A<1500 do
Begin
i:=i+1;
A:=A+i;
End;
A:=A-i;
i:=i-1;
Writeln('Tong A= ',A,' );
Readln;
End.
*Dòng lệnh in đậm mình ghi thêm và khác với bài kia có nghĩa là khi A>1500 thì phải trừ tổng A đi số (hoặc nhiều số) cuối cùng đã cộng cho tổng cho đến khi tổng A<1500. Vd như: A=1+2+3+4+5= 15 (tức A>10; A phải lớn nhất).Muốn cho A=10 thì trừ đi số cuối cùng là 5 = 15-5=10. Còn nếu muốn A<10 thì trừ hai số cuối cùng đi hai số cuối cùng là : 15-5-4=6
Good luck for you! :D