Var x,y,u:real;
function min(a,b:real):real;
begin
if a>b then min:=b else min:=a;
end;
begin
write('x=');read(x);
write('y=');read(y);
u:=min(x+y,x*y);
writeln(u);
<span>end.</span>
Ответ:
program abc;
var a:integer;
begin
writeLn('Введите год');
write('=> ');
readLn(a);
if (a mod 4 = 0) and ((a mod 1000 = 0) or (a mod 100 <> 0)) then writeLn('Год ',a,' - високосный') else writeLn('Год ',a,' - не високосный')
end.
Объяснение:
2) шавка 4) шажок 6) шакал 8) шалость 10) шалфей 12) шаман 14) шанежка 16) шарада
<span>256 называется VGA обычно так называется.</span>