Var a,b,c,d:integer;
begin
read(a,b);
c:=a+b;
d:=a*b;
if a < b then begin
a:=c;
b:=d;
end else begin
a:=d;
b:=c;
end;
write('a=',a,' b=',b);
end.
Информация - это наше все. По сути весь наш мир - информация, окружающая нас. Мы живём в нашем фанероне(то, что наш мозг даёт нашему сознанию: картину, звук, ощущение, и то как мы их воспринимаем,), и именно он работает с информацией. Все можно представить в виде информации, и именно за ней стоит будущее, ведь не зря наш век завётся "Информационный"
n%2 проверяет четность. если равняется 0 - число чётное.
#код на руби
for i in 0.."1FF".to_i(16)
p [i, i.to_s(16), i.to_s(8)] if i%16==0 and (i/16/16)==1 and i/8==5*8+6
end
Вывод
[368, "170", "560"]
Var
a, b, c, d, n : integer;
begin
write('введите первое число ');
readln(a);
write('введите второе число ');
readln(b);
write('введите третье число ');
readln(c);
write('введите четвёртое число ');
readln(d);
n:=a;
if b>n then n:=b;
if c>n then n:=c;
if d>n then n:=d;
writeln('Большее из чисел равно ', n);
end.