Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
#include <bits/stdc++.h>
using namespace std;
long long n,x,t;
int main()
{
cin>>n;
t=0;
while (n>0)
{
x=n%10;
t=t+x;
n/=10;
}
cout<<t;
return 0;
}
Var t,n:integer;
begin
write('nhap n = ');readln(n);
while n div 10 <> 0 do
begin
t:=t+(n mod 10);
n:=n div 10;
end;
write('Tong cac chu so cua ',n,' la ',t);
readln;
end.
Bai1: a) \(sqr\left(5-1\right)\) mod 3
b) \(sqr\left(10\right)+\left(25-4\right)\)/4
Bai2:Xác định bải toán
Input : Chiều dài b và chiều rộng a.
Output: Diện tích và chu vi thửa ruộng.
Thuật toán
B1:Nhập a,b
B2:CV<-- (a+b)*2
Và S<--a*b
B3: -Thông báo lên màn hình diện tích là s
-Và chu vi là cv
* Thuật toán:
Bước 1: Nhập n và dãy số a1, a2…, an.
Bước 2: SUM ← 0; i ← 0.
Bước 3: Nếu ai > 0 thì SUM ← SUM + ai, ngược lại đến bước 4.
Bước 4: i ← i + 1;
Bước 5: Nếu i \(\le\) n thì quay lại bước 3.
Bước 6: Thông báo giá trị SUM. Kết thúc thuật toán.
* Chương trình: program tinhtong; uses crt; var a,n,i: integer; sum: real; begin clrscr; write('Nhap n vao'), read(n); write('nhap day A vao'), read(a1,a2,...,an); sum:=0, i:=0; if i <= n then if ai > 0 then sum:=sum+ai else i:i+1; writeln('tong cac so duong trong day la',sum:4:0) readln end. Theo mình thì ntn
câu 1:
Var a, b: real;
Begin
Clrscr;
Write(‘nhap a=’), read(a);
Write(‘nhap b=’); read(b);
If a+b = 120 then a:=120-b;
Readln
End.
câu 2:
s = 63
Câu 1:
uses crt;
var k,i:integer;
begin
clrscr;
write('Nhap k='); readln(k);
for i:=1 to k do
write(i:4);
readln;
end.
Câu 2:
uses crt;
var a:array[1..100]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;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong cac gia tri cua day la: ',t);
readln;
end.
C1:
Var
a:integer;b: integer;
Begin
a:=0;
Writeln('Hay nhap nam can tinh:');
readln(b);
a:=b-2003;
if a>9 and a<20 then
writeln('Nam dang o trong tuoi vi thanh nien.')
else
writeln('Nam khong o trong tuoi vi thanh nien.');
readln;
end.
câu 1:
var x:string
y:integer
Câu 2:
var a,b:integer
begin
write('hay nhap gia tri cua a')
read(a)
wrietln('hãy nhập giá trị b')
read(b)
t:=a+b
writeln('tông cua a va b la',t)