А) var a,b,c:real;
begin
readln(a);
readln(b);
readln(c);
if (a>b) and (a>c) then writeln('Победил 1! Результат: ',a);
if (b>a) and (b>c) then writeln('Победил 2! Результат: ',b);
if (c>b) and (c>b) then writeln('Победил 3! Результат: ',c);
end.
Домены
Домен 1-го(2го,3-го...) уровня
Можно как то так:
var
M: real;
x: integer;
begin
for x := 1 to 100 do
begin
M := 2 / Sin(x);
Println('x=', x, '; M=', M);
end;
end.
2^x=256 => x=8
Производим необходимые расчёты: 2^8 * 2^8 / 1024 = 64 килобайт
Var ar:array[1..12] of integer;
i,min:integer;
begin;
min:=2147483647;
for i:=1 to 12 do
begin;
readln(ar[i]);
if (ar[i]>0) and (ar[i]<min) then
min:=ar[i];
end;
writeln;
writeln('Array:');
for i:=1 to 12 do
write(ar[i]:4);
writeln;
write('Min:',min);
<span>end.</span>