Если без форм (<FORM>), то так:
<HTML>
<HEAD>
</HEAD>
<BODY>
<H1>Площадь трапеции</H1>
<SCRIPT>
var a = prompt('Укажите длину','');
var b = prompt('Укажите ширину','');
var h = prompt('Укажите высоту','');
alert ('Площадь трапеции будет равна '+(+a + +b)/2*h);
</SCRIPT>
</BODY>
</HTML>
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
const
n=10;
type
Sot=record
fam:string;
zp:integer;
end;
begin
var Sotr:=new Sot[n];
Writeln('Вводите фамилию и через пробел зарплату');
for var i:=0 to n-1 do begin
var s:=ReadlnString(i+1+':');
var ms:=s.Split;
(Sotr[i].fam,Sotr[i].zp):=(ms[0],StrToInt(ms[1]));
end;
var r:=Sotr.OrderBy(x->x.zp).First;
WritelnFormat('{0} получает всего лишь {1}',r.fam,r.zp)
end.
<u><em>Тестовое решение:</em></u>
Вводите фамилию и через пробел зарплату
1: Иванов 32000
2: Петров 28000
3: Козлов 34000
4: Сидорова 41400
5: Пупкин 30000
6: Кузьмина 36000
7: Васечкин 29700
8: Бененсон 32500
9: Паутова 41000
10: Ромашкин 36400
Петров получает всего лишь 28000
I — информационный объем одной точки (пикселя)
N — количество цветов
K — количество точек (пикселей)
V — информационный объем всего изображения
1.
Дано:
N = 256
Найти:
I - ?
Решение:
I = log₂N
I = log₂ 256 = 8 бит / 8 = 1 байт
Ответ: 1 байт
2.
Дано:
N = 65536
V = 2400 байтов
Найти:
Решение:
V = I*K
K = V / I
I = log₂N
I = log₂65536 = 16 бит / 8 = 2 байта
K = 2400 байтов / 2 байта = 1200
Ответ: 1200 точек
3.
Дано:
K = 1024*768 = 786432
N = 65536
Найти:
V — ?
Решение:
V = I*K
I = log₂N
I = log₂65536 = 16 бит / 8 = 2 байта
V = 2 байта * 786432 = 1572864 байта / 1024 = 1536 Кбайт / 1024 = 1.5 Мбайт
Ответ: 1.5 Мбайт
4.
Дано:
K = 128*256 = 32768
V = 8 Кбайт * 1024 = 8192 байт
Найти:
N – ?
Решение:
N = 2^i
V = I*K
I = V / K
I = 8192 байт / 32768 = 0.25 байт * 8 = 2 бита
N = 2^2 = 4
Ответ: 4 цвета
function fn(s:string):string;
var i:integer;
begin
i:=pos('минус',s);
while i>0 do
begin
delete(s,i,5);
insert('плюс',s,i);
i:=pos('минус',s);
end;
fn:=s;
end;
var b:string;
begin
readln(b);
write(fn(b));
end.
Пример:
минус + плюс - минус = 0
плюс + плюс - плюс = 0
Пуск-завершение работы или принудительное