На паскале
---
uses crt;
var a,b,max: integer;
begin
writeln('Вводите последовательность. Окончание последовательности - 0.');
readln(a);
max:=a;
while a<>0 do begin
if (a>max) then max:=a;
readln(a);
end;
writeln('Наибольшее число последовательности: ',max);
<span>end.</span>
Формула количества информации
<span>N-кол-во цветов, i-кол-во бит на одну точку</span>
1)включить печку
2)налить молоко в кастрюлю
3)поставить кастрюлю на огонь
4)закепитить молоко
5)насыпать крупу
6)добавить сахар,соль
6)готово к употреблению
Никакие.
Доказываю:
Попробуйте найти 2 целых числа от 1 до 99, которые в сумме составляют 100 и если инвертировать одно из них, получается второе число. Это невозможно, а максимально близкий результат - 90 ; 09
Sub aaa()
a = InputBox("Введите число А")
b = InputBox("Введите число B")
c = InputBox("Введите число C")
s = a + b + c
k = 0
For i = 1 To Len(s)
If Mid(s, i, 1) = "0" Then k = k + 1
Next i
MsgBox "Общее количество нулей равно" + Str(k)
End Sub