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 :
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 1 : Viết chương trình Pascal nhập vào 10 số thực bất kì , in ra màn hình tổng bình phương của các số âm
Bài 2 : Viết chườn trình nhập vào số n số tự nhiên đầu tiên , tính tổng các số chẵn có trong dãy số in kết quả ra màn hình
Bài 3 : Viết chưng trình nhập vào một mảng các số nguyên bất kì , in ra màn hình các số là số dương mà là số lẻ
Giúp mk với mn ơi , mk đang cần gấp Cảm ơn mn nhiều
Bài 1:program sothuc;
uses crt;
var a:array[1..10] of real;s,i,j:real;
begin
s:=0;
for i:=1 to 10 do begin writeln('A[',i,']=');readln(a[i]); end;
for i:=1 to 10 do if a[i]<0 then
for j:=1 to 10 do
begin a[j]:=sqr(a[i]); s:=s+a[j]; end;
writeln('tong binh phuong cac so am la: ',s:2:2); readln;
end. (Khi nào mình kiểm tra chạy lại trên phần mềm rồi sửa lại nếu sai nhé)
Bài 2:
program soduong;
uses crt;
var a:array[1..100] of integer;s,i,n:integer;
begin
clrscr;
writeln('nhap do dai cua day');readln(n);
for i:=1 to n do begin
writeln('a[',i,']=');readln(a[i]);
if a[i] mod 2 = 0 then s:=s+a[i] end;
writeln('tong so duong trong day la',s:2:0);readln
end.
Bài 3: các số dương mà là số lẻ là sao thế bạn????
Bài 1: viết chương trình in ra các số chẵn là bội của 7 và nhỏ hơn hoặc bằng số nguyên dương N (với N được nhập). Yêu cầu nhập lại nếu a<=0.
Bài 2: Cho 2 số tự nhiên n,m. Viết chương trình tính tổng và tích cuả m chữ số cuối cùng của n.
Giup mình với ạ! mình cảm ơn!
Bài 1: Viết chương trình nhập vào 1 số N nguyên dương và in ra màn hình các số
chẵn từ 0 đến N? (N là số tự nhiên được nhập vào từ bàn phím)
Gợi ý: Các số chẵn là các số chia 2 dư 0, ta có thể sử dụng mod để chia lấy phần
dư.
Bài 2: Viết chương trình nhập vào 1 số N nguyên dương và in ra màn hình các số
chẵn từ 0 đến N, sao cho mỗi số chiếm 4 vị trí và 1 dòng có 15 số?
Gợi ý: Tương tự bài 4 (sử dụng thêm biến tạm để khi in ra 15 số thì xuống dòng).
GIải giúp mình mới mình đang cần gấp
1/viết chương trình nhập dãy số gồm 10 số nguyên dương.In ra màn hình số bé nhất (Min)
2/viết chương trình nhập dãy số gồm n số nguyên.
a. Tính tổng các phần tử của dãy.
b. In ra màn hình các phần tử là số chẵn hoặc lẻ.
[Giúp mình với mình đang cần gấp mai là mình thì rồi. Cảm ơn mn trước ạ]
1:
#include <bits/stdc++.h>
using namespace std;
long long n=10, a[10],i,nn;
int main()
{
for (i=1; i<=n; i++) cin>>a[i];
nn=a[1];
for (i=2; i<=n; i++) nn=min(nn,a[i]);
cout<<nn;
return 0;
}
Viết chương trình nhập vào n số nguyên in ra màn hình tổng các số đó (giúp mình với ạ mình đang cần gấp)
Program HOC24;
var i,n: integer;
t: longint;
a: array[1..1000] of integer;
begin
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(a[i]);
end;
t:=0;
for i:=1 to n do t:=t+a[i];
write('Tong la; ',t);
readln
end.
Bài 1: Viết chương trình nhập mảng số nguyên A có n phần tử. Tính tổng các phần tử nguyên âm lẻ và in tổng đó ra màn hình. Bài 2: Viết chương trình nhập mảng số nguyên A có n phần tử. Tính tích các phần tử nguyên dương chẵn và in tích đó ra màn hình.
Bài 1:
#include <bits/stdc++.h>
using namespace std;
long long x,n,i,t;
int main()
{
cin>>n;
t=0;
for (i=1; i<=n; i++)
{
cin>>x;
if ((x<0) and (x%2!=0)) t=t+x;
}
cout<<t;
return 0;
}
bài 1 : Viết chương trình tính diện tích, chu vi hình chữ nhật biết độ dài các cạnh của hình chữ nhật là các số dương được nhập từ bàn phím.In ra màn hình điện tích của chu vi của nó
Bài 2: Viết chương trình tính diện tích và chu vi của hình tròn biết bán kính của hình tròn là số dương được nhập từ bàn phím.
( Help meeeeeeeee!!!!!!!!!!!!!! lưu ý, giải câu nào cx đc ạ, 2 câu thì mik càng cảm ơn ^^)
CÂU 1:
program hinhchunhat;
var a,b,S,C: real;
begin
Write('Nhapdodaicanhthuchata=');readln(a);
Write('Nhapdodaicanhthuhaib=');readln(b);
S:= a*b;
C:=(a+b)*2;
Writeln('Dientichhinhchunhatla:',S);
Writeln('Chuvihinhchunhatla:',C);
readln
end.
CHÚC BẠN HỌC TỐT!
CÂU 2:(lưu ý: câu này thì mik viết chương trình với bán kính hình tròn là sớ thực được nhập từ bàn phím còn số dương thì bn tự tìm hiểu nhe. nếu tìm hiểu đc thì bn chỉ cần thay phần khai báo var thôi nhe.)
program hinhtron;
var r:real;
const pi=3.14;
begin
clrscr;
Write('Nhapbankinh:');readln(r);
Writeln('Chuvihinhtronla:',2*pi*r);
Writeln('Dientichhinhtronla:',pi*r*r);
readln
end.
CHÚC BẠN HỌC TỐT (x2)
B1:Biết chiều dài và chiều rộng của hình chữ nhật.
B2:Lấy chiều dài nhân rộng.
B3:Viết đáp số.
B4:Viết chương trình và kết thúc thuật toán.