Мне кажется что мы не можем сказать сколько яблок было у каждого мальчика. К примеру: если у Тимура было три, а у Руслана 2, то тогда бы Руслан дал Тимуру и у него было бы больше в 2 раза, чем у Руслана. А если бы Тимур дал Руслану еще одно яблоко, то тогда бы У Руслана стало больше чем у Тимура.
Поэтому такого быть не может. Но это моё мнение ✌️
Program task1;
const
n = 10;
var
a :array [1..n] of real;
i, j :integer;
min, k :real;
begin
for i:= 1 to n do
readln(a[i]);
min:= a[1];
for i:= 1 to n do
if a[i] < min then
begin
min:= a[i];
j:= i;
end;
k:= a[n];
a[n]:= a[j];
a[j]:= k;
end.
program task2;
const
n = 10;
var
a :array [1..n] of integer;
i, j, kol :integer;
begin
for i:= 1 to n do
readln(a[i]);
kol:= 0;
for i:= 1 to n do
if a[i] mod 3 = 0 then
inc(kol);
for i:= 1 to n do
if a[i] = kol then
begin
j:= i;
break;
end;
writeln(j);
end.
Var a,b,c : real;
begin
writeln('a=');
readln(a);
writeln('b=');
readln(b);
writeln('c=');
readln(c);
if (a+b>c) and (a+c>b) and (b+c>a)
then writeln('Треугольник существует')
else writeln('Треугольника не существует');
end.
Пример:
<span>a= 3
b= 4
c= 5
Треугольник существует</span>
Program variant;
var
x,a,d:real;
i:integer;
begin
Write('введите x='); Read(x);
for i:=1 to 7 do begin
a:=0.14+0.22*(i-1);
d:=(0.15*x-a)/ln(a*a-x*x);
Writeln(a:4:2,d:16:9);
a:=a+0.22
end
end.
<u>Пример</u>
введите x=0.027
0.14 0.034243220
0.36 0.173723688
0.58 0.527608521
0.80 1.778950153
1.02 -26.114068556
1.24 -2.875984233
1.46 -1.924508518
22 1) 2+2=4 2) 2-2=0 3)2*2=4 4)2:2=1
