Progran Znanija;
var x, y:integer;

begin

readln(x);

if x<10 then
y:=2*x+x-5;

else
begin

if x<13 then
y:=5*x*x-x;

else
y:=7*x-5;

end

writeln(y);
end.

0 0

1 год назад

Как можно описать план решения задачи

1йВладислав

Дано, Что нужно найти, решение

0 0

3 года назад

Составьте программу для вычисления площади четырехугольника с координатами вершин (x1,y1) , (x2,y2), (x3,y3), (x4,y4) площадь че

Eugenia16

Var x1, y1, x2, y2, x3, y3, x4, y4: real;
begin
read(x1, y1, x2, y2, x3, y3, x4, y4);
write(abs((x1 - x2) * (y3 - y2) - (y1 - y2) * (x3 - x2)))
<span>end.</span>

0 0

4 года назад

Что такое разрешение экрана монитора?А) Разновидность монитораБ) Степень освещения экрана монитора в горизонтальном и вертикальн

Радикович

ответ будет находиться под буквой в

0 0

4 года назад