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.

27 tháng 10 2022

uses crt;

var a:array[1..3]of integer;

i,t:integer;

begin

clrscr;

for i:=1 to 3 do readln(a[i]);

for i:=1to 3 do

begin

write(a[i]:4);

t:=t+a[i];

end;

writeln;

writeln(t);

readln;

end.

27 tháng 10 2022

Var a:array[1..3] of integer;

i,s:integer;

Begin

For i:=1 to 3 do

Begin

Write('Nhap so thu ',i,' = ');readln(a[i]);

End;

Writeln('Cac so vua nhap la');

For i:=1 to 3 do

Writeln(a[i]);

s:=0;

For i:=1 to 3 do s:=s+a[i];

Write('Tong la ',s);

Readln;

End.

Mình sẽ tạm hiểu đề này là viết chương trình in ra các số nguyên tố lớn hơn hoặc bằng n nha

#include <bits/stdc++.h>

using namespace std;

int n,m,i;

//chuongtrinhcon

bool ktnt(int n)

if (n<2) return false; 

for (int i=2; i*i<=n; i++) 

if (n%i==0) return false; 

return true;

}

int main()

{

cin>>n;

cout<<"Cac so nguyen to nho hon bang n thoa man yeu cau la"<<endl;

for (int i=2; i<=n; i++) 

if (ktnt(i)) cout<<i<<" ";

}

19 tháng 3 2023

Câu 1:

Program HOC24;

var i,p: integer;

t: longint;

begin

write('Nhap P: '); readln(p);

t:=0;

for i:=1 to p do if i mod 2<>0 then t:=t+i;

write('Tong cac so le la: ',t);

readln

end.

19 tháng 3 2023

Câu 2:

Program HOC24;

var i,n: integer;

t: longint;

begin

write('Nhap N: '); readln(n);

t:=0;

for i:=1 to n do if i mod 2=0 then t:=t+i;

write('Tong cac so chan la: ',t);

readln

end.

7 tháng 2 2023

 

28 tháng 3 2022

Program HOC24;

var n: integer;

begin

write('Nhap N: '); readln(n);

while n<>0 do

begin

write(n mod 10,' ');

n:=n div 10;

end;

readln

end.

16 tháng 6 2018

a ) Số có ba chử số mà tổng các chử số bằng 3 là:

111; 120; 102; 210 ; 201; 300.

b ) Số có năm chử số mà tổng các chử số bằng 3 là:

11100; 11001; 10011; 11010; 10110; 10101; 21000; 20001; 20100; 20010; 12000; 10200;10020; 10002; 30000.

c ) Số tự nhiên lớn nhất có các chữ số khác 0 mà tổng các chữ số của số đó bằng 20 là:

11111111111111111111

17 tháng 12 2022

Tổng 3 chữ số của số bé nhất có 3 chữ số tích 3 chữ số bằng 3 là ? 

4 tháng 10 2016

cac so tu nhien len tiep co 3 chu so la tu so 100 den so 999

vay cach viet la:

A=(100;101;102;.......;999)

tong cua cac so do la:

999+100.900(900 la so cac so hang):2

=1000.900:2

=900000:2=450000

minh ko chac la dung dau nhe 

vi ko co dau ngoac nhon nen minh dung dau ngoac tron

chu trong bai ban phai dung ngoac nhon day nhe

2: 

uses crt;

var a:array[1..100]of integer;

n,i: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(i:4);

readln;

end.

17 tháng 3 2021

câu 3 nữa bạn, mình ko hiểu đc câu đó

 

23 tháng 9 2023

Bài 1: 

Từ 100 → 199 cần dùng 20 chữ số 9 (10 chữ số 9 ở hàng đơn vị, 10 chữ số 9 ở hàng chục) 

Từ 200 → 399 cần dùng 20 chữ số 9 (10 chữ số 9 ở hàng đơn vị, 10 chữ số 9 ở hàng chục) 

.....

Từ 800 → 999 cần dùng 20 chữ số 9 (10 chữ số hàng 9 ở hàng đơn vị, 10 chữ số 9 ở hàng chục) 

Vậy từ 100 → 999 cần dùng \(20\cdot9=180\) chữ số 9 (ở hàng đơn vị và chục)  

Mà từ 100 → 999 cần 100 chữ số 9 ở hàng trăm

→ Từ 100 → 999 ta cần dùng: 

\(100+180=280\) (chữ số 9) 

23 tháng 9 2023

Bài 2:

Gọi tập hợp đó là S: 

\(S=\left\{13;22;31;40\right\}\)

Bài 3: 

Gọi tập hợp đó là P:
\(P=\left\{15;24;33;42;51;60\right\}\) 

Bài 1:

Input: Số n

Output: Kiểm tra xem n có chia hết cho 5 ko

Mô tả thuật toán:

Bước 1: Nhập n

Bước 2: Nếu n chia hết cho 5 thì xuất ra có

không thì không

Bước 3: Kết thúc

Viết ct:

uses crt;

var n:integer;

begin

clrscr;

readln(n);

if n mod 5=0 then write('yes')

else write('no');

readln;

end.