Viết phương trình Pascal nhập vào các số a và b,c Hãy tính S=(a+b)*c+a*(b+c)
Những câu hỏi liên quan
Cho mảng A có N phần tử (N được nhập vào từ bàn phím, các phần tử của mảng là các số nguyên). Hãy viết chương trình Pascal thực hiện các yêu cầu sau: a. Nhập các phần tử cho mảng A? b. In lên màn hình các phần tử của mảng A? c. Tính tổng các phần tử chẵn của mảng A và thông báo kết quả ra màn hình?
program Tinh_Tong_Phan_Tu_Chan;
var
A: array of Integer;
N, i, sum: Integer;
begin
Write('Nhap N: ');
Readln(N);
SetLength(A, N);
// Nhập các phần tử cho mảng A
for i := 0 to N - 1 do
begin
Write('Nhap phan tu thu ', i + 1, ': ');
Readln(A[i]);
end;
// In lên màn hình các phần tử của mảng A
Write('Cac phan tu cua mang la: ');
for i := 0 to N - 1 do
begin
Write(A[i], ' ');
end;
Writeln;
// Tính tổng các phần tử chẵn của mảng A và thông báo kết quả ra màn hình
sum := 0;
for i := 0 to N - 1 do
begin
if A[i] mod 2 = 0 then
sum := sum + A[i];
end;
Writeln('Tong cac phan tu chan cua mang la: ', sum);
Readln;
end.
Đúng 1
Bình luận (0)
Hãy viết chương trình trình nhập vào 4 số nguyên bất kỳ thì A B C và D.Tính tích ABCD.tính tổng bình phương ABC và và tính hiệu C và D
#include <bits/stdc++.h>
using namespace std;
long long a,b,c,d;
int main()
{
cin>>a>>b>>c>>d;
cout<<a*b*c*d<<endl;
cout<<a*a+b*b+c*c<<endl;
cout<<c-d;
return 0;
}
Đúng 0
Bình luận (0)
u 3: sử dụng câu lệnh lặp for và câu lệnh lặp while viết chương trình pascal: A, Tính tổng các số chia hết cho 3 trong khoảng từ 1 đến n B, nhập vào 1 dãy gồm n số bất kì, tính tổng các số dương trong dãy vừa nhập C, nhập vào 1 dãy gồm n số bất kì, đếm trong dãy số vừa nhập có bao nhiêu số k (với k nhập từ bàn phím)
C1:Viết câu lệnh khai biến x có kiểu số nguyên và hằng a có giá trị bằng 5 trong ngôn ngữ lập trình Pascal. C2: Viết chương trình Pascal để: A) nhập vào 2 số nguyên x, y bất kỳ B) tính tổng 2 số đó C) in ra giá trị của tổng
Câu 2:
uses crt;
var x,y:int64;
begin
clrscr;
readln(x,y);
writeln(x+y);
readln;
end.
Đúng 1
Bình luận (0)
Hãy viết chương trình pascal thực hiện các công việc sau a ) Nhập vào 1 dãy số nguyên b ) Hiện thị dãy số vừa nhập c ) Tính trung bình công của dãy số đó d ) Hiện thị các số là bội của 3 e ) Hiện thị các số lẻ là bội của 5 f ) Tìm số lớn nhất có trong dãy g ) Đưa số lớn nhất lên đầu dãy nhưng không làm mất các giá trị có trong dãy h ) Tính trung bình cộng số thứ 8 và số thứ 10 ở trong dãy Mai mình thi rồi , mong mọi người giúp e vs ạ
Đọc tiếp
Hãy viết chương trình pascal thực hiện các công việc sau
a ) Nhập vào 1 dãy số nguyên
b ) Hiện thị dãy số vừa nhập
c ) Tính trung bình công của dãy số đó
d ) Hiện thị các số là bội của 3
e ) Hiện thị các số lẻ là bội của 5
f ) Tìm số lớn nhất có trong dãy
g ) Đưa số lớn nhất lên đầu dãy nhưng không làm mất các giá trị có trong dãy
h ) Tính trung bình cộng số thứ 8 và số thứ 10 ở trong dãy
Mai mình thi rồi , mong mọi người giúp e vs ạ
Var a:array:[1..1000] of integer;
i,n,max,t,d:integer;
s:longint;
tb:real;
Begin
Write('n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap diem thu ',i,' = ');readln(a[i]);
s:=s+a[i];
End;
tb:=s/n;
Write('Cac so vua nhap la: ');
For i:=1 to n do
Write(a[i]:8);
writeln;
writeln('Trung binh cong cua day la ',tb:10:2);
Write('Cac so la boi cua 3 la ');
For i:=1 to n do
if a[i] mod 3 = 0 then write(a[i]:8);
writeln;
write('Cac so le la boi cua 5 la ');
for i:=1 to n do
if (a[i] mod 2 <> 0) and (a[i] mod 5 = 0) then
write(a[i]:8);
Writeln;
max:=a[1];
for i:=1 to n do
if a[i] > max then
begin
max:=a[i];
d:=i;
End;
Writeln('So lon nhat la ',max);
t:=a[1];
a[1]:=max;
a[d]:=t;
Write('Day sau khi dem so lon nhat ra truoc ');
For i:=1 to n do
write(a[i]:8)
writeln;
tb:=(a[8] + a[10])/2);
Write(Trung binh cong cua so thu 8 va thu 10 la ',tb:10:2);
Readln
End.
Đúng 2
Bình luận (0)
C1.Viết chương trình tính tổng hai số A và B với A, B là 2 số được nhập từ bàn phím C2. Viết Chương trình nhập vào ba số nguyên a, b, c. tính a+b-c. C3.Viết Chương trình tính hiệu a - b với a,b là hai số nguyên nhập từ bàn phím. C4.Chương trình nhập vào 3 số x, y, z. Tính (x+y)*z Giúp em với ạ em cảm ơn nhiều lắm ạ
Câu 1:
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
write(a+b);
readln;
end.
Câu 2:
uses crt;
var a,b,c:integer;
begin
clrscr;
readln(a,b,c);
writeln(a+b-c);
readln;
end.
Đúng 1
Bình luận (0)
Câu 3:
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
writeln(a-b);
readln;
end.
Câu 4:
uses crt;
var x,y,z:integer;
begin
clrscr;
readln(x,y,z);
writeln((x+y)*z);
readln;
end.
Đúng 1
Bình luận (0)
Viết lập trình nhập vào giá trị bất kì a,b,c Tính và đưa ra s=(a+b+c)/3
uses crt;
var a,b,c:real;
begin
clrscr;
readln(a,b,c);
writeln((a+b+c)/3:4:2);
readln;
end.
Đúng 1
Bình luận (0)
Bài 1: Hãy viết các biểu thức toán dưới đây bằng các kí hiệu trong Pascal:a, ax2+bx+cb,dfrac{a-b}{c-d} + a2Bài 2:Viết phương trình nhập vào hai số nguyên khác nhau A và B, in ra màn hình số lớn nhất ( Mk cần gấp ạ )
Đọc tiếp
Bài 1: Hãy viết các biểu thức toán dưới đây bằng các kí hiệu trong Pascal:
a, ax2+bx+c
b,\(\dfrac{a-b}{c-d}\) + a2
Bài 2:Viết phương trình nhập vào hai số nguyên khác nhau A và B, in ra màn hình số lớn nhất
( Mk cần gấp ạ 
)
Bài 1.
a)\(ax^2+bx+c\Rightarrow\)a*x*x+b*x+c
b)\(\dfrac{a-b}{c-d}+a^2\Rightarrow\) (a-b)/(c-d)+a*a
Đúng 1
Bình luận (0)
Cho hai biến a,b, có kiểu dữ liệu số nguyên. Em hãy viết chương trình Pascal thực hiện các yêu cầu sau: a) Khai báo hai biến a,b. b) Nhập giá trị của hai biến a,b từ bàn phím. c) In kết quả tổng của a,b ra màn hình.
uses crt;
var a,b:int64;
begin
clrscr;
readln(a,b);
writeln(a+b);
readln;
end.
Đúng 0
Bình luận (0)