Задача А
program Boom;
uses crt;
var
a, b: integer;
begin
Read(a, b);
if a > b then Writeln('Наибольшее число ', a) else Writeln('Наибольшее число ', b);
end.
Тестовое решение
12
52
Наибольшее число 52
Задача Б
program Boom;
uses crt;
var
a:array[1..4] of Integer;
max:integer;
i:byte;
Begin
for i:= 1 to 4 do
Begin
Write('Введите число:');
Read(a[i]);
End;
max := a[1];
for i:= 2 to 4 do
if a[i] > max then
max := a[i];
Write('Наибольшее число:');
WriteLn(max);
End.
Тестовое решение:
Введите число:12
Введите число:53
Введите число:34
Введите число:63
Наибольшее число:63
A = [75, 31, 80, 40, 48, 40] # любой список
# Готовые решения для этих задач:
print(sum(A)) # Сумма
# Произведение
A = [35, 2, 82, 10, 44, 42]
import functools
import operator # содержит все возможные операции
print(functools.reduce( # reduce - применить операцию ко всем элементам списка поочерёдно
operator.mul, # операция умножения
A))
# Через цикл
# Сумма:
S = 0
for i in A: S += i # Сложить все элементы A, результатом будет переменная S
print(S)
# Произведение:
M = 1 # Если будет 0, то всё выражение тоже будет 0
for i in A: M *= i
# Или
if 0 in A: M = 0
else:
for i in A: M *= i
print(M)
Поделитесь своими знаниями, ответьте на вопрос:
Вкниге 512 страниц. сколько информации содержит сообщение о том, что закладка лежит на какой либо странице?