Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Quay Cuồng
Xem chi tiết
Nguyễn Minh Huy
Xem chi tiết
Tiểu Thư Cá Tín
17 tháng 1 2016 lúc 17:18

5555 tik nha

Lưu Phạm Thị Hoàn Hảo
Xem chi tiết
Ngô Thị Hà
15 tháng 12 2015 lúc 19:15

CHTT nha bạn !

lê phát minh
Xem chi tiết
Nhuyễn Hồng Nhung
Xem chi tiết
Nguyễn Công Dũng
7 tháng 3 2021 lúc 22:54

a)555+55+55+55+55+55+55+55+55+5=1000          

b)1x(2+3)x4x5=100

Khách vãng lai đã xóa
hoàng đá thủ
Xem chi tiết
Nguyễn Lê Phước Thịnh
29 tháng 8 2023 lúc 21:00

uses crt;

var i,n,t,j,kt:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=2 to n do

if n mod i=0 then

begin

kt:=0;

for j:=2 to trunc(sqrt(i)) do

if i mod j=0 then kt:=1;

if kt=0 then t:=t+i;

end;

write(t);

readln;

end.

Lê Minh Thuận
30 tháng 8 2023 lúc 16:38

Dưới đây là một ví dụ về chương trình Pascal để tính tổng các ước số nguyên tố của một số tự nhiên n:

```pascal
program TinhTongUocSoNguyenTo;
var
n, i, j, sum: integer;
isPrime: boolean;
begin
write('Nhap vao so tu nhien n: ');
readln(n);

sum := 0;

for i := 1 to n do
begin
if n mod i = 0 then // Kiểm tra i có là ước số của n không
begin
isPrime := true;

for j := 2 to trunc(sqrt(i)) do // Kiểm tra i có phải là số nguyên tố không begin if i mod j = 0 then begin isPrime := false; break; end; end; if isPrime then // Nếu i là số nguyên tố, cộng vào tổng sum := sum + i; end;

end;

writeln('Tong cac uoc so nguyen to cua ', n, ' la: ', sum);
end.
```

Chương trình trên sẽ yêu cầu bạn nhập vào số tự nhiên n, sau đó tính tổng các ước số nguyên tố của n và hiển thị kết quả.

Gấu Koala
Xem chi tiết
Gấu Koala
4 tháng 1 2018 lúc 22:32

Cho mình hỏi mấy câu nữa:
Câu 1: Cho 1994 số, mỗi số bằng 1 hoặc -1. Hỏi có thể chọn ra từ 1994 số đó một số số sao cho tổng các số được chọn ra bằng tổng các số còn lại hay không?
Câu 2: So sánh
a) (-2)^91 và (-5)^35
b) (-5)^91 và (-11)^59
c) (-80)^11 và (-27)^15
d) (-31)^10 và (-17)^13
Câu 3: Cho tổng: 1+2+3+....+10. Xóa hai số bất kì, thay bằng hiệu của chúng. Cứ tiếp tục làm như vậy nhiều lần. Có khi nào kết quả nhận được bằng -1; bằng -2; bằng 0 được không?

Nữ hoàng Cute
Xem chi tiết
Nữ hoàng Cute
8 tháng 6 2017 lúc 14:38

Help me !!! I need urgent !

Nữ hoàng Cute
8 tháng 6 2017 lúc 16:05

giúp mình đi các bạn thân yêu !
 

hoang dat
4 tháng 9 2017 lúc 16:45

Tri thang 4 van chua qua 5 phut dc 8 diem

con dung thang 4 van qua 5 phut dc 5 diem

Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
5 tháng 3 2017 lúc 3:09

Program bt_3;

Uses crt;

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

Dem, Tong, n, i: integer;

Begin

Clrscr;

 Writeln(‘nhap so phan tu, n=’);

 Readln (n);

 for i := 1 to n do

 begin

 writeln(‘nhap gia trij phan tu thu ’,i,’ =’);

 readln(a[i]);

 end;

 Dem:=0;

 Tong:=0;

 For i:=1 to n do

 If (a[i] mod 2 = 0) and (a[i] mod 5 = 0) then

 begin

 Dem:= Dem+1;

 Tong:= Tong+a[i];

 end;

 writeln(‘Dem la:’,Dem);

 Writeln(‘Tong la:’,Tong);

 Readln

End.