Viết chương trình nhập 1 mảng số nguyên dương gồm n phần tử
a, in ra màn hình mảng vừa nhập.
b, tìm kiếm các cặp 2 phần tử liên tiếp có tổng chia hết cho 10. in ra màn hình các cặp số và vị trí của nó
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
write(a[i]:4);
writeln;
for i:=1 to n do
if (a[i]+a[i+1] mod 10=0) then
begin
writeln(a[i],' ',a[i+1]);
writeln(i,' ',i+1);
end;
readln;
end.
viết chương trình nhập vào một số nguyên dương n . Rồi xuất ra màn hình các yêu cầu sau:
a, Số n có bao nhiêu chữ só.
b, Tổng các chữ số của n.
c, Số n có phải là số nguyên tố không.
d, Tổng các chữ số của nó có phải là số nguyên tố không.
mn giúp em vs ạ
program ct;
uses crt;
var dem,n,s,max,t:longint;
begin
writeln('nhap n:');readln(n);
while n>0 do begin
s:=n mod 10;
t:=t+s;
if max<s then max:=s;
dem:=dem+1;
n:=n div 10;
end;
writeln('tong la',t,',','co',' ',dem,' ','chu so',',','chu so lon nhat la:',max);
readln
end.
bạn xem lại nha mik làm đây nhưng k bt đk
Bài 4: Viết chương trình: (Lưu bài: D:\LOP_HOTEN_BAI4.PAS)
a. Nhập một dãy số nguyên có n phần tử
b. Xuất ra màn hình dãy số vừa nhập.
c. Tính và in ra màn hình tổng của các phần tử chia hết cho 3 có trong dãy.
d. Xuất ra màn hình các phần tử là số âm.
#include <bits/stdc++.h>
using namespace std;
long long a[1000],i,n,t;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++) cout<<a[i]<<" ";
cout<<endl;
t=0;
for (i=1; i<=n; i++)
if (i%3==0) t+=i;
cout<<t<<endl;
for (i=1; i<=n; i++)
if (a[i]<0) cout<<a[i]<<" ";
return 0;
}
Viết chương trình nhập vào mảng A gồm n nhỏ 1 = 100 các số nguyên tử sau a) tính tích các số chia hết cho 3 b)in ra màn hình giá trị nhỏ nhất chia hết cho 3 và chỉ số của nó c) in ra màn hình các phần tử của mảng đó theo thứ tự ngược lại
uses crt;
var a:array[1..100]of integer;
n,i,t,nn,kt:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
t:=1;
for i:=1 to n do
if a[i] mod 3=0 then t:=t*a[i];
writeln(t);
kt:=0;
nn:=32567;
for i:=1 to n do
if a[i] mod 3=0 then
begin
if nn>a[i] then nn:=a[i];
kt:=1;
end;
if kt=0 then writeln('Khong co so chia het cho 3')
else writeln('So nho nhat chia het cho 3 la: ',nn);
for i:=1 to n do
if nn=a[i] then write(i:4);
writeln;
for i:=n downto 1 do
write(a[i]:4);
readln;
end.
viết chương trình bằng ngôn ngữ lập trình python
+) nhập bàn phím số đo chiều dài và chiều rộng của 1 hình chữ nhật
+) hiện ra màn hình chu vi và diện tích của hình chữ nhật đó
Viết chương trình bằng ngôn ngữ lập trình Pascal để nhập vào N số nguyên từ bàn phím, tính tổng của các số vừa nhập và in ra màn hình giá trị tổng.
Uses crt;
var n,i,x,u: integer;
begin clrscr;
readln(n);
for i:=1 to n do begin
readln(x);
u:=u+x;
end;
writeln(u);
readln;
end.
program TongCacSoNguyen;
var
N, i, soNguyen, tong: integer;
begin
// Nhập số lượng N
write('Nhap so luong N: ');
readln(N);
// Khởi tạo tổng
tong := 0;
// Nhập và tính tổng các số nguyên
for i := 1 to N do
begin
write('Nhap so nguyen thu ', i, ': ');
readln(soNguyen);
tong := tong + soNguyen;
end;
// In ra màn hình tổng
writeln('Tong cua cac so nguyen la: ', tong);
readln;
end.
Bài 1: Viết chương trình nhập 1 số nguyên dương n có 3 chữ số.Hãy thông báo ra màn hình tổng các chữ số của nó. Bài 2: giống bài trên nhưng là 5 chữ số. Giúp mình với ạ, mình cần gấp :
Bài 1:
uses crt;
var n,t,i,d,x:integer;
st:string;
begin
clrscr;
readln(n);
str(n,st);
d:=length(st);
t:=0;
for i:=1 to d do
begin
val(st[i],x);
t:=t+x;
end;
writeln(t);
readln;
end.
Viết chương trình nhập vào dãy số có n số, xuất ra màn hình tổng các số chia hết cho 2.
Ví dụ nhập n = 5
1 2 3 4 6
Xuất: tong cac so chia het cho 2 la: 12
Var s,n,i,so:integer;
Begin
Write('Nhap so luong so n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i)readln(so);
If so mod 2 = 0 then s:=s+so;
End;
Write('Tong cac so chan la ',s);
Readln;
End.
Program HOC24;
var i,n,t: integer;
a: array[1..32000] of integer;
begin
write('Nhap n= '); readln(n);
for i:=1 to n do if i=n then readln(a[i]) else read(a[i]);
t:=0;
for i:=1 to n do if a[i] mod 2=0 then t:=t+a[i];
write('Tong cac so chia het cho 2 la: ',t);
readln
end.
tìm số có ba chữ số biết tổng các chữ số của nó bằng 19
các bạn viết cả cách làm ra cho mình nhé
bang 982 ban nhe!Vi 9+8=17,17+2=19.Mot so kieu khac 8+9+2,2+8+9,8+2+9