Мы покупаем на рынке арбузы себе домой.Мы хотим выбрать самый большой, то есть самый тяжёлый арбуз.Всего есть N арбузов, вес которых задан . Сначала вводится N -целое положительное число не превышающее 100- количество арбузов,далее вводится N чисел - вес Арбузов на прилавке по порядку.Какого веса арбуз мы принесём домой? Какой будет этот арбуз по номеру?
var r:integer;
begin
writeln('Введите радиус');
read(r);
writeln('Длина окружности = ',2*pi*r);
writeln('Площадь круга = ',pi*sqr(r));
end.
Задание №2
var a,d,n:integer;
begin
writeln('Введите первый член, знаменатель, число членов');
read(a,d,n);
writeln('Cумма членов арифметической прогресси = ', 0.5*n*(2*a+(n-1)*d));
end.
Задание №3
var m,n:integer;
begin
writeln('Введите m и n');
read(m,n);
if m=n then begin
m:=0;
n:=0;
end;
if (m>n) then n:=m
else if n>m then m:=n;
end.
Задание №4
var a,b,c:integer;
begin
writeln('Введите стороны a,b,c');
read(a,b,c);
if (a=b) or (b=c) or (c=a) then writeln('Треугольник равнобедренный')
else writeln('Треугольник неравнобедренный');
end.
Задание №5
var a,b,c:integer;
begin
a:=0;
c:=0;
repeat
writeln('Введите число');
read(b);
if b<0 then a:=a+1;
c:=c+1;
until c=3;
writeln('Количество отрицательных = ',a);
end.
Задание №6
var a,c:integer;
b:real;
begin
writeln('Введите количество часов');
read(a);
c:=a div 3;
b:=power(2, c);
writeln(b);
end.
Задание №7
const
n=10;
var a:array [1..10] of integer;
i,k,s:integer;
begin
writeln('Введите k');
read(k);
writeln('Введите элементы массива');
for i:=1 to n do begin
read(a[i]);
if a[i] mod k =0 then s:=s+a[i];
end;
writeln(s);
end.
Если игра безошибочна, тогда первый игрок может первым ходом увеличить в 3 раза вторую кучу (2*3=6), второй не станет увеличивать эту-же на 3 т.к сразу проиграет (18>17),
1) он может увеличит первую на три, тогда второй эту же увеличит на 3 и результат 1*3(2)*3(1)=9
9+6=15, первый победит
2)первый игрок будут играть аккуратно и постоянно прибавлять по 2 во вторую кучу, поскольку и в первого "безошибочная игра", то он не станет прибавлять в 1 2 камня(1+2=3, первый умножает эту кучу на 3 и результат 6+(3*3)=15), поэтому и первый и второй будут прибавлять во вторую кучу 6_{1}+2_{2}+2_{1}+2_{2}+2_{1}=15+2_{2}=176
1
+2
2
+2
1
+2
2
+2
1
=15+2
2
=17 17=17 (что по условию не подходит), выиграл 1