20 задание:
n = int(input('Введите n: '))
for i in range(1, n + 1):
if i % 3 == 0 and i % 5 == 0:
print('*35*')
elif i % 3 == 0:
print('*3*')
elif i % 5 == 0:
print('*5*')
else:
print(i)
21 задание:
strN = ''
temp = ''
print('Вводите числа, каждое с новой строчки, в конце напишите stop.')
while temp != 'stop':
temp = input()
if temp != 'stop': strN += temp + ' '
n = [int(item) for item in strN.split()]
for i in n:
if i > 100:
break;
elif i >= 10:
print(i)
22 задание:
a = ''
temp = ''
print('Пишите числа, в конце напишите stop.')
while temp != 'stop':
temp = input()
if temp != 'stop' and int(temp) % 7 == 0 and int(temp) % 5 == 0:
a += temp + ' '
a = a.split()
if len(a) != 0:
print('Числа кратные 7 и 5:')
for i in a: print(i)
else: print('Нет чисел кратных 7 и 5.')
Объяснение:
1. Числа Фибоначчи
function Fibon (n:integer):longint;
var fib_1,fib_2,fib:longint;
i :integer;
begin
if (n<3) then Fibon:=1
else
begin
fib_1 := 1;
fib_2 := 1;
i:=2;
while i<n do
begin
fib:=fib_1+fib_2;
fib_1:=fib_2;
fib_2:=fib;
i:=i+1;
end;
Fibon := fib;
end;
end;
begin
writeln('Fib(',40,') = ',Fibon(40));
readln;
end.
Числа кратные к
program sumkr;
var
n,i,r,k: integer;
sum: longint;
begin
write('Введите число n (1<=n<=4): ');
readln(n);
r:=1;
for i:=1 to n-1 do
r:=r*10;
write('Введите число k: ');
readln(k);
i:=r;
while i <= r*10-1 do
begin
if i mod k=0 then sum:=sum+i;
i:=i+1;
end;
writeln('Сумма чисел от ',r,' до ',r*10-1,' кратных ',k,' = ',sum);
readln;
end.
===
3. НОК
program NOK_a_b;
var a, b, nod, nok,p: integer;
begin
writeln('Введите а и в ');
readln(a, b);
p:=a*b;
while (a <> 0) and (b <> 0) do
if a > b then a := a mod b
else b := b mod a;
nod := a + b;
nok:=p div nod;
writeln('НОК= ', nok);
readln;
end.