снх уцжйюейч цуртыйс е ьйружйп мтетнйс
1)
var
a, b: integer;
begin
writeln('Введите a, b: '); readln(a, b);
if(b mod a = 0) then writeln('Является делителем')
else writeln('Не является делителем');
end.
2)
var
x, y, tmp: real;
begin
repeat
writeln('Введите x, y: '); readln(x, y);
until(x <> y);
if(x > y) then begin
tmp := y;
y := (x + y) / 2;
x := 2*(x * tmp);
writeln('Большее - X = ', x, ' Меньшее - Y = ', y);
end else begin
tmp := x;
x := (x + y) / 2;
y := 2*(tmp * y);
writeln('Большее - Y = ', y, ' Меньшее - X = ', x);
end;
end.
ответ:A№1
mass = [int(input()) for i in range(5)]
for i in mass:
if i % 3 == 0 and i % 10 == 8:
print(i, end=' ')
№2
from random import randint
mass = [randint(100, 999) for i in range(100, 1000)]
for i in range(len(mass) - 1):
for j in range(i + 1, len(mass)):
if mass[i] % 100 > mass[j] % 100:
mass[i], mass[j] = mass[j], mass[i]
print(mass)
№3
from random import randint
mass = [randint(0, 1000) for i in range(1000)]
for i in range(len(mass) - 1):
if mass[i] == mass[-1]:
print(i, end=' ')
B№1
mass = [int(input()) for i in range(5)]
k = 0
for i in mass:
if str(i)[0] == '8':
k += 1
print(k)
№2
from random import randint
mass = [randint(100, 999) for i in range(100, 1000)]
for i in range(len(mass) - 1):
for j in range(i + 1, len(mass)):
if sum(map(int, str(mass[j]))) < sum(map(int, str(mass[i]))):
mass[i], mass[j] = mass[j], mass[i]
print(mass)
№3
from random import randint
mass = [randint(0, 1000) for i in range(1000)]
print(mass)
k = mx = 0
for i in range(1, len(mass)):
if mass[i] * mass[k] > mx:
mx = mass[i] * mass[k]
max_i, max_k = i, k
k += 1
print(max_k, max_i)
Объяснение:
не знаю сколько чисел должно быть в массиве в интервале от 0, 1000
если надо изменить, то поменять в range(1000) на нужное кол-во чисел
Поделитесь своими знаниями, ответьте на вопрос:
Используя шифр цезаря со сдвигом вправо на 5 закодируйте следующие текст мир освещает солнцем а человек знанием
Мир - СНХ
Освещает - УЦЖЙЮЕЙЧ
Солнцем - ЦУРТЫЙС
А - Е
Человек - ЬЙРУЖЙП
Знанием - МТЕТНЙС
Получилось: СНХ УЦЖЙЮЕЙЧ ЦУРТЫЙС Е ЬЙРУЖЙП МТЕТНЙС