K
Khách
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.
Dưới đây là một vài câu hỏi có thể liên quan tới câu hỏi mà bạn gửi lên. Có thể trong đó có câu trả lời mà bạn cần!
HN
27 tháng 12 2016
1. B1. Nhập số n. Tổng <- 0, i<-1
B2 Nhập giá trị cho a( nhập lần thứ i). Tổng <- Tổng +ai
B3 i <- i+1
B4 Nếu i <= n, quay lại bước 2
B5 Thông báo kết quả Tổng và kết thúc thuật toán
ND
1
3 tháng 2 2023
uses crt;
var i,n,s:integer;
begin
clrscr;
readln(n);
s:=0;
for i:=1 to n do
if i mod 2=0 then s:=s+i;
write(s);
readln;
end.
14 tháng 12 2016
program TKB;
uses crt;
var T2, T3:string;
begin
clrscr;
write('Thu 2 co mon: '); readln(T2);
write('Thu 3 co mon: '); readln(T3);
readln;
end.
Mình ko chắc là đúng đâu nha! Bạn lên google tìm thử đi!
NH
1
15 tháng 4 2021
uses crt;
var a:array[1..20]of integer;
i,n: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
if a[i]<0 then write(a[i]:4);
readln;
end.
20 tháng 3 2022
Câu 1:
uses crt;
var s,i,n:integer;
begin clrscr;
s:=0;
write('Nhap n: ');readln(n);
for i:=1 to n do
if i mod 2 <> 0 then inc(s,i);
write('Tong cac so le tu 1 den ',n,' la: ',s);
readln
end.
20 tháng 3 2022
Câu 2:
uses crt;
var s,i,n:integer;
begin clrscr;
s:=0;
write('Nhap n: ');readln(n);
for i:=1 to n do
if i mod 2 = 0 then inc(s,i);
write('Tong cac so le tu 1 den ',n,' la: ',s);
readln
end.
14 tháng 12 2016
không có dấu chấm phẩy sau mỗi câu lệnh
chỗ pi = 3,14 phải sửa thành const pi = 3,14;
CHÚC BẠN THI TỐT^^
28 tháng 1 2020
uses crt;
var n,i:integer;
gt:int64;
begin
clrscr;
write('n='); readln(n);
if n=0 then gt:=1;
if n mod 2=1 then
begin
gt:=1;
i:=1;
while (i<=n) do
begin
gt:=gt*i;
i:=i+2;
end;
end;
if (n mod 2=0) and (n>0) then
begin
gt:=1;
i:=2;
while (i<=n) do
begin
gt:=gt*i;
i:=i+2;
end;
end;
writeln('giai thua kep cua ',n,' la: ',gt);
readln;
end.
10 tháng 2 2020
uses crt;
var n,i:integer;
gt:int64;
begin
clrscr;
write('n='); readln(n);
if n=0 then gt:=1;
if n mod 2=1 then
begin
gt:=1;
i:=1;
while (i<=n) do
begin
gt:=gt*i;
i:=i+2;
end;
end;
if (n mod 2=0) and (n>0) then
begin
gt:=1;
i:=2;
while (i<=n) do
begin
gt:=gt*i;
i:=i+2;
end;
end;
writeln('giai thua kep cua ',n,' la: ',gt);
readln;
end.
#include <bits/stdc++.h>
using namespace std;
#define nmax 1000007
#define ll long long
const long long mod = 1e9 + 7;
long long tcs(long long a)
{
long long tong = 0;
while(a>0)
{
tong+=a%10;
a/=10;
}
return tong;
}
signed main()
{
cin.tie(0) -> sync_with_stdio(0);
long long n;
cin>>n;
long long a = n/100, b = n%100;
tcs(a) == tcs(b) ? cout<<"YES" : cout<<"NO";
}