Program qwerty;
var a, b, P, S: real;
begin
writeln ('Нахождение периметра и площади прямоугольника');
write ('Введите значение первой стороны прямоугольника: ');
read (a);
write ('Введите значение второй стороны прямоугольника: ');
read (b);
P:=2*(a+b);
S:=a*b;
writeln ('Ответ: периметр = ', P:7:2, ', площадь = ', S:7:2,'.');
<span>end.</span>
Программа.................................................
9 декабря 1968 года компьютерная мышь была представлена на показе интерактивных устройств в Калифорнии. Патент на этот гаджет получил Дуглас Энгельбарт в 1970 году.
Первым компьютером, в набор которого включалась мышь, был миникомпьютер Xerox 8010 Star Information System, представленный в 1981 году. Мышь фирмы Xerox имела три кнопки и стоила 400 долларов США, что соответствует почти 1000 долларов в ценах 2012 года с учётом инфляции. В 1983 году фирма Apple выпустила свою собственную однокнопочную мышь для компьютера Lisa, стоимость которой удалось уменьшить до $25. Широкую известность мышь приобрела благодаря использованию в компьютерах Apple Macintosh и позднее в ОС Windows для IBM PC совместимых компьютеров. В СССР выпускалась компьютерная мышь, называвшаяся "Манипулятор "Колобок" с тяжёлым металлическим, не покрывавшимся тогда резиной, шаром.
Program aliona;
var x,y,z:integer;
max,sr,min:integer;
begin
writeln('vvedite x ,y,z');
readln(x ,y ,z);
if (x>y) and (x>z) and (z>y) then
begin
max:=x;
sr:=z;
min:=y;
end;
if (y>z) and (y>x) and (x>z) then
begin
max:=y;
sr:=x;
min:=z;
end;
if (z>y) and (z>x) and (y>x) then
begin
max:=z;
sr:=y;
min:=x;
end;
writeln(max,' ',sr,' ',min);
readln;
end.
