Это легко смотри ты должна сделать точно такой же в тетрадь и формулу S=a*v
Используя формулы из логики, упростим данное выражение (в частности формула замена импликации=> для переменных А и В А=>B = (не)А V В
Затем подставляем входные данные
1) Палитра
2) Алгоритм
3) Монитор
4) Графический файл
5) Курсор
6) Бит
7) Пиксель
8) И не то и не другое. ^^ Ну раз два варианта, то пожалуй "думащее устройство".
9) Разрешение изображения
// 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