Giúp mình gấp : viết phương trình tính rồi đưa ra màn hình. Tổng của các số nguyên trong phạm vi 50. Là các số chia hết cho 5 và là số lẻ
Viết phương trình tính y= x^2 + y^2 nếu x>y và xy+y^2x nếu x^2+y^2>xy
viết chương trình tính và đưa ra màn hình tổng các số chia hết cho 5 trong phạm vi 2 đến 98
Program HOC24;
var i: byte;
t: integer;
begin
t:=0;
for i:=2 to 98 do if i mod 5=0 then t:=t+i;
write('Tong cac so chia het cho 5 tu 2 den 98 la: ',t);
readln
end.
Viết phương trình vào mảng số nguyên n phần tử (n <=50)
a, in mảng vừa nhập ra màn hình
b, tính tổng các số lẻ chia hết cho 5 có trong mảng
Làm nhanh hộ em mai em thi rồi
uses crt;
var a:array[1..50]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
write(a[i]:4);
t:=0;
for i:=1 to n do
if (a[i] mod 2<>0) and (a[i] mod 5=0) then t:=t+a[i];
writeln;
writeln(t);
readln;
end.
Câu 1: Viết chương trình tính và in ra màn hình diện tích và chu vi của hình chữ nhật, với chiều dài và chiều rộng là số nguyên nhập từ bàn phím.
Câu 2: Viết chương trình nhập các số nguyên x và y, in giá trị của x và y ra màn hình. Sau đó hoán đổi các giá trị của x và y rồi in ra màn hình giá trị của x và y.
Lưu ý: Câu lệnh hoán đổi 2 biến x và y: Z:=x;
X:=y;
Y:=z;
Viết chương trình thực hiện việc nhập từ bàn phím hai số nguyên dương A và B (A<B), tính và đưa ra màn hình tổng các số chia hết cho 3 hoặc 5 trong phạm vi từ A đến B.
#include <bits/stdc++.h>
using namespace std;
long long a,b,t,i;
int main()
{
cin>>a>>b;
t=0;
for (i=a; i<=b; i++)
if ((i%3==0) or (i%5==0)) t=t+i;
cout<<t;
return 0;
}
Viết trương trình Pescal, tính tổng các số nguyên tố nằm trong khoảng từ X đến Y rồi in ra màn hình .Với X,Y là các số tự nhiên được nhập từ bàn phím ra 2<x<y
program TinhTongSoNguyenTo;
var
X, Y, i, j, dem, tong: integer;
begin
write('Nhap X: ');
readln(X);
write('Nhap Y: ');
readln(Y);
tong := 0;
for i := X to Y do
begin
dem := 0;
for j := 2 to i div 2 do
if i mod j = 0 then
begin
dem := dem + 1;
break;
end;
if dem = 0 then
tong := tong + i;
end;
writeln('Tong cac so nguyen to tu ', X, ' den ', Y, ' la: ', tong);
readln;
end.
Viết chương trình nhập từ bàn phím số nguyên dương N Đưa ra màn hình số lượng các số lẻ chia hết cho 5 trong phạm vi từ 1 đến N
Viết chương trình nhập một dãy gồm N số nguyên A1, A2, ...,AN. Tinh và đưa ra màn hình số lượng các phần tử ở vị trí lẻ chia hết cho 9 có trong dãy
Câu 2: (2.0 điểm) Viết chương trình nhập một số nguyên N từ bàn phím. Tinh và đưa ra màn hình tổng các số chẵn trong đoạn từ 1 đến N.
Câu 3: (1.0 điểm) Viết chương trình nhập một dãy gồm N số nguyên dương B1, B2, ..., BN. Nhập số nguyên X. Đưa ra màn hình vị trí các phần tử chia hết cho X và lớn hơn phần tử nhỏ nhất có trong dãy.
giúp em với ạ
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 nhập từ bàn phím số nguyên dương N,tính tổng các giá trị lẻ và chia hết cho 3 trong phạm vi từ 1 đến N.In kết quả ra màn hình (sử dụng cú pháp while...do)
program tinh_tong;
uses crt;
var i,N:byte;
S:integer;
begin
writeln('Nhap so N='); readln(N);
i:=1; S:=0;
while i<=N do
begin
if (i mod 3=0) and (i mod 2=1) then S:=S+i;
i:=i+1;
end;
writeln('Tong S=',S);
readln
end.
nếu được thì mong bạn kiểm tra lại trên phần mềm dùng mình nhé, do ko có nên cx chẳng kiểm tra được. Thế nên sai thì thông cảm dùng mình nha