Составим полный код к нашему заданию а:
program ex1;
uses crt;
var
k, a: integer;
begin
k := 1;a := 12;
while a < 100 do
begin
a := 2 * a - 4;
Writeln('Значения a ', a);
k := k + 1;
Writeln('Значения k ', k);
end;
end.
После выполнения программы получаем такие значения:
Значения a 20
Значения k 2
Значения a 36
Значения k 3
Значения a 68
Значения k 4
Значения a 132
Значения k 5
Составим полную программу к заданию б:
program ex2;
uses crt;
var
k, a, s: integer;
begin
s := 0;a := 1;k := 1;
while a < 50 do
begin
s := s + a;
Writeln('Значения s ', s);
k := k + 1;
Writeln('Значения k ', k);
a := k * k;
Writeln('Значения a ', a);
end;
end.
После выполнения программы получаем такие значения:
Значения s 1
Значения k 2
Значения a 4
Значения s 5
Значения k 3
Значения a 9
Значения s 14
Значения k 4
Значения a 16
Значения s 30
Значения k 5
Значения a 25
Значения s 55
Значения k 6
Значения a 36
Значения s 91
Значения k 7
Значения a 49
Значения s 140
Значения k 8
Значения a 64
Составим полный код к нашему заданию а:
program ex1;
uses crt;
var
k, a: integer;
begin
k := 1;a := 12;
while a < 100 do
begin
a := 2 * a - 4;
Writeln('Значения a ', a);
k := k + 1;
Writeln('Значения k ', k);
end;
end.
После выполнения программы получаем такие значения:
Значения a 20
Значения k 2
Значения a 36
Значения k 3
Значения a 68
Значения k 4
Значения a 132
Значения k 5
Составим полную программу к заданию б:
program ex2;
uses crt;
var
k, a, s: integer;
begin
s := 0;a := 1;k := 1;
while a < 50 do
begin
s := s + a;
Writeln('Значения s ', s);
k := k + 1;
Writeln('Значения k ', k);
a := k * k;
Writeln('Значения a ', a);
end;
end.
После выполнения программы получаем такие значения:
Значения s 1
Значения k 2
Значения a 4
Значения s 5
Значения k 3
Значения a 9
Значения s 14
Значения k 4
Значения a 16
Значения s 30
Значения k 5
Значения a 25
Значения s 55
Значения k 6
Значения a 36
Значения s 91
Значения k 7
Значения a 49
Значения s 140
Значения k 8
Значения a 64
1)
# На вход: кол-во чисел, сами числа
# Выход: кол-во чисел не кратных 5
count:int = input('Кол-во чисел?: ')
ints = []
for i in range(int(count)):
ints.append(input('Число ' + str(i+1) + ': '))
result = []
for i in ints:
if int(i) % 5 != 0:
result.append(i)
print(result)
2)
# На вход: кол-во чисел, сами числа
# Выход: кол-во чисел в конце которых чётное число
count:int = input('Кол-во чисел?: ')
ints = []
for i in range(int(count)):
ints.append(input('Число ' + str(i+1) + ': '))
result = []
for i in ints:
if int(i) % 2 == 0:
result.append(i)
print(result)
3)
# На вход: числа A и C
# Выход: числа, последняя цыфра которых кратна С
A = input('Отрезок от 0 до ')
C = input('Найти числа, кратные ')
result = []
for i in range(0, int(A)):
if i % int(C) == 0:
result.append(i)
print(result)