Ответ:
Объяснение:
2)
program uravn;
var x,y:real;
begin
writeln('Введите х');
readln(x);
y:=x+2.5;
y:=y*x;
y:=y-1;
y:=y*x;
y:=y+1;
writeln('y=',y:4:2);
readln;
end.
3)
program rasst;
var
d,xa,ya,xb,yb:real;
begin
writeln('Введите координаты точек А(xa,ya), В(xb,yb)');
write('xa=');
readln(xa);
write('ya=');
readln(ya);
write('xb=');
readln(xb);
write('yb=');
readln(yb);
d:=sqrt(sqr(xb-xa)+sqr(ya-yb));
writeln('|AB|=',d:4:2);
readln;
end.
В школе учатся четыре талантливых мальчика: Иванов, Петров, Сидоров и Андреев. Один
из них - будущий музыкант, другой преуспел в бальных танцах, третий - солист хора
мальчиков, четвертый подает надежды как художник.
О них известно следующее:
1. Иванов и Сидоров присутствовали в зале консерватории, когда там солировал в
хоре мальчиков певец.
2. Петров и музыкант вместе позировали художнику.
3. Музыкант раньше дружил с Андреевым, а теперь хочет познакомиться с
Ивановым.
4. Иванов не знаком с Сидоровым, так как они учатся в разных классах и в разные
смены.
Кто чем увлекается?
//PascalABC.Net 3.1.0.1200
begin
var n := ReadInteger(' n =');
writeln(n div 10 mod 10);
end.