Предполагается, что будет введено минимум одно значение. <span>var
max,a : integer;
begin
readln(a);
max := a;
repeat
readln(a);
if (a > max) and (a <> 0) then
max := a;
until a = 0;
writeln(max);
readln;
end.</span> <span>P.S. Если понравилось решение не забудь отметить как лучшше. </span>
A) на первом листочке
((X v Y) & !Z) v !Z
k) на втором листочке
((X v Y) & X) & X & !Z
след задание на втором листке
все тоже самое только результат инвертирован
!( ((X v Y) & X) & X & !Z )
Всього 7 дітей - 6 сестер і один брат)
1)
начало
делим на 2
есть остаток нет остатка
возводим в куб возводим в квадрат
конец