решите, пожалуйста!!!!!!! контрольная!

+ 0 -

Maksimilyushkin

09 дек. 2013 г., 13:16:24 (10 лет назад)

1 задание
Ошибка где Program Контроль_1; - имя программы должно задаваться латинскими символами
Ошибка где y:=7.2; - у объявлена как целочисленная переменная, а ей присвоили действительное.
Ошибка z:=x+y и write(z) - переменная z не определенная и не может использоваться   

2 задание
a- 36
б- 11.41
в- 4.7

3 Задание
var
x, y:integer;
begin
writeln('x=');
readln(x);
writeln('y=');
readln(y);
writeln('Resultat:', (2+x/sqrt(abs(x-y))-13/sqr(x))*15*x )
end.

4 Задание
|37*x-√x-y*5/z|/(x+y)²

Задание 5
var
x, z:integer;
begin
writeln('x=');
readln(x);
writeln('z=');
readln(z);
if (x<z)and(z<=5) then writeln('Resultat: ', sqr(x+z)) else
writeln('Resultat: ', x-z)
end.