Question

Решите номера 2 и 3. В третьем трёзначное​

Answer 1

№2

program n2;

var a,b,y:real;

begin

readln(a);

b:=sqrt(sqt(a)+1);

y:=abs(b+5)/sqr(b);

writeln(y)

end.

№3

program n3;

var a,b:integer;

begin

write('Введите трёхзначное число: ');

readln(a);

b:=a div 100;

a:=a div 10;

a:=b+a;

writeln('Сумма первых двух цифр вашего числа = ',a)

end.

P.s:Предположил, что язык выполнения - Pascal.

Answer 2

program Ninf; var x1,x2,y1,y2,s:real; begin write('A(');read(x1);write(';');read(y1);write('), ');write('B(');read(x2);write(';');read(y2);writeln(')');s:=sqrt(sqr(x2-x1)+sqr(y2-1));writeln('AB = ',s) end.

Answer 3

Срочно не выходит. Я всё же люблю программирование, но не настолько чтобы заниматься этим во время диагностике по математике.