Определите значение переменной у после выполнения алоритма при х=25 (в ответе запишите только число).
у:=х2
если х>=26
то у:=х
иначе
если х>26
то у:=-(хх/2)
иначе у:=2*у
все
все

Question

Информатика: Определите значение переменной у после выполнения алоритма при х=25 (в ответе запишите только число). у:=х*2 если х =26 то у:=х иначе если х 26 то у:=-(х*х/2) иначе у:=2*у все все

хитрыйкот · Accepted Answer

// PascalABC.NET 3.2, сборка 1389 от 01.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
var xa,ya,xb,yb,xc,yc:real;
Write('Введите координаты точки А: '); Read(xa,ya);
Write('Введите координаты точки B: '); Read(xb,yb);
Write('Введите координаты точки C: '); Read(xc,yc);
var xd:=(xb+xc)/2;
var yd:=(yb+yc)/2;
var ma:=sqrt(sqr(xd-xa)+sqr(yd-ya));
Writeln('ma=',ma:0:5);
var AB:=sqrt(sqr(xb-xa)+sqr(yb-ya));
var AC:=sqrt(sqr(xc-xa)+sqr(yc-ya));
var BC:=sqrt(sqr(xc-xb)+sqr(yc-yb));
var Wb:=sqrt(AB*BC*(sqr(AB+BC)-AC*AC))/(AB+BC);
Writeln('Wb=',Wb:0:5)
end.

Результат
Введите координаты точки А: 0 0
Введите координаты точки B: 2 1
Введите координаты точки C: -2 3
ma=2.00000
Wb=2.66667

Pascal. записать листинг программы на языке паскаль: треугольник задан координатами вершин а(0; 0),

Pascal. записать листинг программы на языке паскаль: треугольник задан координатами вершин а(0; 0),

MOGZ ответил