Program n1;
var y: real;
x: integer;
begin
write('введите x: ');
readln(x);
if x mod 2=0 then y:=x*x else y:=x*x*x;
writeln(y);
end.
Var a:array [1..10] of Integer; i,temp:Integer; f:Boolean;
begin
Randomize;
for i:=1 to 10 do
a[i]:=Random(100);
for i:=1 to 10 do
write(a[i]:3);
Writeln;
repeat
f:=False;
for i:=1 to 9 do
begin
if a[i]>a[i+1] then
begin
f:=True;
temp:=a[i];
a[i]:=a[i+1];
a[i+1]:=temp;
end;
end;
until not f;
for i:=1 to 10 do
write(a[i]:3);
temp:=0;
for i:=1 to 3 do
temp:=temp+a[i];
Writeln;
Writeln(temp);
Readln;
<span>end.</span>
Допустим, что первый болельщик был прав в том, что Наташа займет 1 место. Следовательно, она не может занять второе место, из чего в свою очередь следует, что третий болельщик не был прав в том, что Наташа займет второе место, значит, он был прав в том, что Рита займет третье место. Аналогично, Рита не может занять четвертое место, так как предположительно она на третьем, значит второй болельщик был прав в том, что Люда займет второе место. Остается Маша - четвертое место. Все болельщики правы лишь в одном из своих прогнозов, условие выполняется. Следовательно ответ: 1 место - Наташа, 2 место - Люда, 3 место - Рита и 4 место - Маша
Const
n=5;
type
MyArr=array[1..n] of integer;
var ar:MyArr;
i,maxi,val:integer;
k:real;
function Maxii(ar:MyArr):
integer;
var i,max:integer;
begin;
Max:=-2147483648;
for i:=1 to n do
if ar[i]>max then
begin;
max:=ar[i];
maxii:=i;
end;
end;
function Amp(ar:MyArr):integer;
var i,max,s:integer;
p:real;
begin;
Max:=-2147483648;
for i:=1 to n do
if ar[i]>max then max:=ar[i];
p:=max/100*10;
for i:=1 to n do
if ar[i]>=max-p then inc(s);
Amp:=s;
end;
begin;
for i:=1 to n do
begin;
readln(ar[i]);
k:=k+ar[i];
end;
k:=k/n;
writeln('Средний рост:',k);
maxi:=maxii(ar);
writeln('Самый высокий призывник:',maxi);
val:=Amp(ar);
writeln('4:',val);
<span>end.</span>
var a,b,c: integer;
begin
writeln('Введите числа А, В, С');
readln(a,b,c);
if (c mod 2=1) and (c>0) then writeln(a+b) else writeln(b*c);
end.
Язык программирования Pascal
