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.
Input: số nguyên N
Output: N là chẵn hoặc N là lẻ
- Thuật toán liệt kê:
+ Bước 1: Nhập N
+ Bước 2: Nếu N chia hết cho 2 thì in ra N chẵn và kết thúc thuật toán ngược lại nếu N không chia hết cho 2 thì in ra N lẻ và kết thúc thuật toán
- Thuật toán sơ đồ khối:
uses crt;
var n,i,dem:integer;
begin
clrscr;
readln(n);
dem:=0;
for i:=1 to n do
if i mod 7=0 then inc(dem);
write(dem);
readln;
end.
program Tong;
var
n: integer;
i: integer;
sum: real;
begin
write('Nhap so nguyen duong n (chia het cho 5): ');
readln(n);
sum := 0;
for i := 1 to n do
begin
if i mod 5 = 1 then
sum := sum + 1/i;
end;
writeln('Tong A la: ', sum);
readln;
end.
var s:real;
i,n,t:integer;
begin
repeat
write('Nhap n > 0 va n chia het cho 5 ');readln(n);
until (n > 0) and (n mod 5 = 0);
t:=round(n/5);
s:=1;
for i:=1 to t do
s:=s+1/(5*i);
write('A = ',s:10:2);
readln
end.
count = 0
for i in range(10, 2001):
if i % 3 == 0 and i % 9 == 0 and i % 11 == 0:
count += 1
print(count)
n = int(input('Nhập số n: '))
sum = 0
i = 1
while i <= n:
if i % 2 == 0:
sum += i
print(i, end=' ')
i += 1
print()
print('Tổng các số chẵn từ 1 đến n là:', sum)
n = int(input('Nhập số n: '))
sum = 0
i = 1
while i <= n:
if i % 2 == 0:
sum += i
print(i, end=' ')
i += 1
print()
print('Tổng các số chẵn từ 1 đến n là:', sum)
n = int(input("nhập năm dương lịch: "))
if n%4 == 100 or (n%4 == 0 and n%100 == 0):
print("năm đó là năm nhuận")
else:
print("năm đó không phải là năm nhuận")