Var x:integer;
y:real;
begin
for x:=-5 to 5 do
if (x>1) and (x<3) then begin y:=cos(x); writeln(x,' ',y:2:2); end
else if x<1 then begin y:=sqr(x); writeln(x,' ',y); end
else begin y:=ln(x); writeln(x,' ',y:2:2); end;
end.
А1: 3
А2: 2 (больше ничего не подходит)
// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
begin
var x:=ReadInteger('x=');
Writeln('y=',x>0?5*x:x*x)
end.
<u><em>Тестовое решение</em></u>
x= 4
y=20
x= -4
y=16
const
n=30;
var
a:array [1..n] of integer;
i,min:integer;
begin
for i:=1 to n do begin
readln (a[i]);
if a[i]>=20 then min:=a[i];
end;
for i:=2 to n do
if (a[i]>=20) and (a[i]<min) then min:=a[i];
writeln (min);
readln;
end.