Biết chương trình pascal đưa ra màn hình kết quả của phép tính:4*5
Câu 38: Trong ngôn ngữ Pascal, đoạn chương trình sau đưa ra màn hình kết quả gì?
For i:=1 to 10 do write (i,’ ‘);
A. 1 2 3 4 5 6 7 8 9 10 B. 10 9 8 7 6 5 4 3 2 1
C. Đưa ra 10 dấu cách D. Không đưa ra kết quả gì
Đáp án A.
Vì vòng lặp for..do có biến đếm chạy từ 1 đến 10 mà mỗi lần lặp có lệnh in ra màn hình biến đếm i kèm dấu cách, nên đáp án là A
Viết chương trình nhập vào một số nguyên dương có hai chữ số. Hãy dùng các phép toán DIV và MOD để tính tổng hai chữ số của số đó và đưa kết quả ra màn hình? (VD: Nhập số: 25 → đưa ra màn hình: 7)
Mình dùng C++ nên div = /; mod = % nha bn!
#include <bits/stdc++.h>
using namespace std;
int main() {
int a, S;
cin >> a;
S=0;
while(a>0)
{
S+=a%10, a=a/10;
}
cout << S << endl;
return 0;
}
Chúc bn học tốt!
Viết chương trình nhập từ bàn phím hai số nguyên a và b. Thực hiện tính và in ra màn hình kết quả của phép tính (chỉ lấy 2 chữ số sau phần thập phân). Giúp mình với Pascal nha mn
Tạo chương trình nhập từ bàn phím giá trị 2 số a, b; sau đó tính và in ra màn hình tổng và hiệu của 2 số đó.
Ví dụ, sau khi nhập a = 12, b = 23 chương trình đưa ra kết quả ra màn hình như ở Hình 5.
Tạo chương trình như sau:
viết chương trình pascal sử dụng câu lệnh lặp while do để tính tổng s=1+1/2^2+1/3^2+...+1/n^2,n là số nguyên nhập từ bàn phím.In kết quả ra màn hình yêu cầu đưa ra 4 dấu cách và 2 chữ số thập phân sau dấu phẩy
Program HOC24;
var i,n: integer;
s: real;
begin
write('Nhap n: '); readln(n);
i:=1;
while i<=n do
begin
s:=s+1/sqr(i);
i:=i+1;
end;
write('S= ',s:8:2);
readln
end.
Viết chương trình pascal in ra màn hình kết quả thông tin cá nhân của học sinh. Mỗi thông trên một dòng Gợi ý: sử writeln() để in ra màn hình
vt trương trình pascal nhập vào số a từ bàn phím sau đó in ra màn hình kết quả của phép tính sau a^3 +15
var a,s:real;
begin
write('a = ');readln(a);
s:=a*a*a+15;
write('Ket qua la ',s:10:2);
readln
end.
câu 1 : hãy viết chương trình cho phép nhập điểm TB 3 môn Toán Văn Anh . Tính Tổng điểm ( TĐ ) và Trung Bình Cộng ( TBC ) 3 môn và đưa kết quả ra màn hình
#include <bits/stdc++.h>
using namespace std;
double a,b,c,tbc;
int main()
{
cin>>a>>b>>c;
tbc=(a+b+c)/3;
cout<<"Tong la:"<<fixed<<setprecision(2)<<a+b+c<<endl;
cout<<"TBC la:"<<fixed<<setprecision(2)<<tbc;
return 0;
}
Viết chương trình nhập vào từ bàn phím mảng B gồm N số nguyên (N<=200)và 1 số nguyên dương k:
1. Tính tổng các phần tử lẻ trong mảng A và đưa kết quả ra màn hình?
2. Tính tổng các phần tử là bội của K trong mảng A và đưa kết quả ra màn hình?
uses crt;
var a:array[1..200]of integer;
n,i,k,t,t1:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap k='); readln(k);
t:=0;
for i:=1 to n do
if a[i] mod 2<>0 then t:=t+a[i];
t1:=0;
for i:=1 to n do
if a[i] mod k=0 then t1:=t1+a[i];
writeln('Tong cac phan tu le la: ',t);
writeln('Tong cac phan tu la boi cua ',k,' la: ',t1);
readln;
end.
Viết chương trình pascal tính điểm trung bình môn toán và văn. Sau đó, nếu điểm trung bình>=5 thì cho ra màn hình"kết quả đạt", ngược lại là"kết quả không đạt".
giúp mình với, đề ôn thi cuối kì mình ak
#include <bits/stdc++.h>
using namespace std;
double a,b;
int main()
{
cin>>a>>b;
double tb=(a+b)/2;
if (tb>=5) cout<<"ket qua dat";
else cout<<"ket qua khong dat";
return 0;
}