источник канал связи приёмник
учебник учащийся ученики
журнал друг окружающие люди
расписание водитель пассажиры
светофор цвета водители и пешеходы
Ответ:
https://tproger.ru/problems/python-3-exercises-for-beginners-geekbrains/
Объяснение:
1.
t = [1, 1, 4, 3, 2, 5, 8, 13, 21, 34, 56, 90, 135]
for i in range(len(t)):
if i < 5:
print(t[i])
2.
result = []
for elem in a:
if elem in b:
result.append(elem)
print(result)
3.
result = sorted(my_dict, key=my_dict.get, reverse=True)[:3]
2^8072+2^4036+2^5-2^0
10.....00 + 1 ....0 + 100000 - 1
10.....0010......0011111
7 единиц
1. var
a, b: integer;
begin
write('Введите два числа >> ');
read(a, b);
writeln('Числа в обратном порядке: ', b, ' ', a);
end.
2. var
a, b, c: integer;
begin
read(a, b);
c := a + b;
write(a, b, c);
end.
3. var
a: integer;
begin
write('Введите двузначное число >> ');
read(a);
writeln('Сумма цифр = ', a div 10 + a mod 10);
writeln('Произведение цифр = ', a div 10 * (a mod 10));
end.
4. var
a, a1, a2, a3: integer;
begin
write('Введите целое трехзначное число >> ');
read(a);
a1 := a div 10;
a2 := a div 100;
a3 := a mod 10;
if (a1 = a2) or (a2 = a3) or (a1 = a3) then writeln('Да')
else writeln('Нет')
end.
5. var
a, b, c: integer;
begin
write('a b c >> ');
read(a, b, c);
if (a >= b + c) or (b >= a + c) or (c >= a + b) then
writeln('Не существует')
else if (a = b) and (b = c) then
writeln('Равносторонний')
else if (a = b) or (b = c) or (a = c) then
writeln('Равнобедренный')
else
writeln('Разносторонний')
end.
6. var
a, a500, a100, a50, a10: integer;
begin
write('Введите сумма сдачи >> ');
read(a);
writeln('Следует сдать: ');
while a >= 500 do
begin
a500 := a500 + 1;
a := a - 500;
end;
writeln('банкнот по 500 руб. - ', a500, ' шт.');
while a >= 100 do
begin
a100 := a100 + 1;
a := a - 100
end;
writeln('банкнот по 100 руб. - ', a100, ' шт.');
while a >= 50 do
begin
a50 := a50 + 1;
a := a - 50
end;
writeln('банкнот по 50 руб. - ', a50, ' шт.');
while a >= 10 do
begin
a10 := a10 + 1;
a := a - 10
end;
writeln('банкнот по 10 руб. - ', a10, ' шт.');
end.
<u>PascalABC.NET 3.3.5, сборка 1648 от 31.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadlnInteger('N=');
var a:=ReadArrInteger(n);
var k:=ReadInteger('K=')-1;
a:=(a[:k].Reverse+a[k:k+1]+a[k+1:].Reverse).ToArray;
a.Println
end.
<u>Пример</u>
N= 8
13 62 0 -35 18 15 232 43
K= 4
0 62 13 -35 43 232 15 18
