Var a, b, c: integer;
function max(a, b : integer) : integer;
begin
if a>b then max:=a
else max:=b;
end;
begin
readln(a, b, c);
writeln(max(max(a, b),c)-5);
end.
Алг Число
нач
цел n, n1, k, f
вывод "Введите целое число", нс
ввод n
n1:= div(n,10)
k:= mod(n,10)
f:= 1
нц пока n1<>0
если mod(n1,10) > k то
f:= 0
все
k:= mod(n1,10)
n1:= div(n1,10)
кц
если f=1 то
вывод "Да."
иначе
вывод "Нет."
кон
Задание 2.
Vi:
1. 109%.
2. 76%.
3. 88%.
4. 84%.
5. 116%.
6. 87%.
7. 111%.
8. 110%.
9. 99%.
10. 101%.
11. 100%.
12. 112%.
Максимум: 12. Декабрь - 112%.
Среднее: 92%.
Oi:
1. Нет - -9%.
2. Есть - 24%.
3. Есть - 12%.
4. Есть - 16%.
5. Нет - -16%.
6. Есть - 13%.
7. Нет - -11%.
8. Нет - -10%.
9. Есть - 1%.
10. Нет - -1%.
11. Нет - 0%.
12. Нет - -12%.
Максимум: 2. Февраль - 24%.
Среднее: 0.6%.
Первое не могу сделать, так как не понимаю sin и cos.
0.5КБ=512БАЙТ
512БАЙТ=512*8=4096БИТ