Đề: Viết chương trình Pascal
Nhập vào số nguyên có 2(hoặc 3) chữ số. Tính tổng các chữ số của số đó?
Mình cần gấp lắm mai kiểm tra,cô bảo tự tìm hiểu mà mình tìm k ra.. ai giúp mình với!!!!
Những câu hỏi liên quan
Đề kiểm tra học kì của mình!!!
Giải giúp mình nhé!
Viết chương trình nhập vào 4 số a,b,c,d, sau đó:
a)Tính tổng 4 số a,b,c,d.
b)Tính tổng các số lẻ.
c)Tính tích các số dương.
Ai đúng mình tik cho!(Cần gấp, trễ nhất là 7:30 tối mai)
Viết chương trình thực hiện các công việc sau:
a. In ra họ và tên em
b. Nhập vào 2 số nguyên a, b. Tính và in tổng 2 số đó.
C. Kiểm tra xem tổng 2 số đó là số chẵn hay lẻ? In kết quả kiểm tra ra màn hình
"mình cần gấp "
b:
#include <bits/stdc++.h>
using namespace std;
long long a,b,t;
int main()
{
cin>>a>>b;
t=a+b;
cout<<t;
return 0;
}
Đúng 0
Bình luận (0)
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.
Đúng 1
Bình luận (0)
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;
}
Đúng 0
Bình luận (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.
Đúng 2
Bình luận (0)
Câu 13: Viết chương trình nhập vào năm sinh, hiển thị thông báo số tuổi trong năm hiện tạiCâu 14: Nhập vào 2 số nguyên dương. Hiển thị số lớn nhất (hoặc bé nhất)Câu 15: Kiểm tra số nguyên dương n có chia hết cho 3 hay không?Các bạn giúp mình với mình sắp thi học kì rồi !Cảm ơn nhiều lắm !
Đọc tiếp
Câu 13: Viết chương trình nhập vào năm sinh, hiển thị thông báo số tuổi trong năm hiện tại
Câu 14: Nhập vào 2 số nguyên dương. Hiển thị số lớn nhất (hoặc bé nhất)
Câu 15: Kiểm tra số nguyên dương n có chia hết cho 3 hay không?
Các bạn giúp mình với mình sắp thi học kì rồi !
Cảm ơn nhiều lắm !
Tìm một số có hai chữ số,biết rằng nếu viết thêm chữ số 8 vào bên phải số đó thì được số mới lớn hơn số phải tìm là 485 đơn vị. Giúp mình với ngày mai cô mình kiểm tra rồi.
Viết chương trình nhập vào dãy gồm N số nguyên a1,a2,...,aN và số nguyên K bất kỳ . Tính và đưa ra màn hình tổng các số chia hết cho K trong dãy Giúp mình với mai mình nộp bài r 🤦
uses crt;
var a:array[1..100]of integer;
i,n,k,t: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 k=0 then t:=t+a[i];
writeln(t);
readln;
end.
Đúng 1
Bình luận (0)
1.Viết 1 chương trình pascal nhập vào từ bàn phím 4 số nguyên a, b, c, d rồi in ra màn hình dãy thứ nhất là tổng của 4 số trên, dãy thứ 2 là giá trị lớn nhất của chúng.
Giúp mình với...mình cần gấp
Xem chi tiết
Program HOC24;
var a,b,c,d,max: integer;
t: longint;
begin
write('Nhap a; b; c; d: '); readln(a,b,c,d);
t:=a+b+c+d;
writeln('Tong 4 so tren la: ',t);
max:=a;
if max<b then max:=b;
if max<c then max:=c;
if max<d then max:=d;
write('So lon nhat cua chung la: ',max);
readln
end.
Đúng 3
Bình luận (0)
*Cách khác:
uses crt;
var a,b,c,d,max:integer;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
write('Nhap c='); readln(c);
write('Nhap d='); readln(d);
writeln('Tong cua 4 so la: ',a+b+c+d);
max:=a;
if max<b then max:=b;
if max<c then max:=c;
if max<d then max:=d;
writeln('Gia tri lon nhat la: ',max);
readln;
end.
Đúng 1
Bình luận (0)