Nhập từ bàn phím số nguyên N (1<N<100). Hãy viết chương trình tìm và in ra màn hình số nguyên tố mà khi cộng với x thì chia hết cho 10 trong N số tự nhiên đầu tiên. VD: N=20 ; x=3 ta có các số 7 và 17 (vì 7+3 và 17+3 chia hết cho 10) (pascal)
1 câu trả lời
program sksk;
uses crt;
var i, n, x, r : integer;
begin
clrscr;
write(' nhap so n :'); readln( n );
write(' nhap so x : '); readln( x );
for i:= 1 to n do
begin
r := round( sqrt( i ));
if ( i mod r <> 0 ) then
if (( i + x ) mod 10 = 0) then write(i,' ');
end;
readln
end.
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
