Uses crt;
var x,y,z:real;
begin
read(x,y,z);
if x+y+z>x*y*z then
writeln(x+y+z)
else
writeln(x*y*z);
<span>end.</span>
Ответ:
нечем
Объяснение:
вы понимаете слово знак? а символ? ну может быть знак это типо !"№;%: а символы это могут быть знаки со смыслом. если же я не правильно понял то тогда они отличаются только названиями.
Может я не заметил, но вроде отсутствует переменная "creditum"
Файловий провідник, живлення, усі програми...
Var i,n:integer;
begin
n:=1;
i:=1;
write ('Числа не кратные 2 и 5: ');
while i<=8 do
begin
if (n mod 2 <> 0) and (n mod 5 <> 0) then
begin
write (n,' ');
i:=i+1;
end;
n:=n+1;
end;
end.