// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var x,a,x1,x2,delta,lambda,y:real;
Write('Введите границы изменения аргумента и шаг: ');
Read(x1,x2,delta);
a:=1.44;
x:=x1;
repeat
lambda:=Sqr(Tan(x*a/2*pi));
y:=Power(x*(2.7*Power(x,1.35)+lambda),1/3);
Writeln('x=',x,' y=',y);
x+=delta
until x>x2
end.
<u><em>Тестовое решение</em></u>
Введите границы изменения аргумента и шаг: 1.2 2.0 0.2
x=1.2 y=1.63776729113963
x=1.4 y=1.81249323168809
x=1.6 y=2.04691849426225
x=1.8 y=2.40906764678559
x=2 y=4.09613421404126
Обозначим Симченко - С, Василькова - В, <span>Левченко - Л;
Исходя из прогнозов и условия:
1 место. НЕ С И НЕ В => Л
2 </span>место<span>. НЕ В И НЕ Л => С
3 </span><span>место</span><span>. НЕ Л И НЕ С => В
Получили ответ:
</span><span> Левченко занял 1 место.
</span><span> Симченко занял 2 место.
</span><span> Васильков занял 3 место.</span>
2 ^26=536870912, а потом все что вы делаете на уроке,делите или наоборот
Var x:char;
begin
read(x);
while x<>0 do
begin
write(x);
read(x);
end;
end.