// 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
Берешь сначала h, затем h-36%, и так делаешь, пока h не будет = 0, затем складываешь все результаты и получаешь ответ
1мин = 60 сек. = 60 (Сек). читает 160 символов.
60*30=1800(Сек.)-
1800*160 = 288000 (Симв.)читает за 30 мин.
Ответ:288000 Символов читает ученик за 30 мин.
Компьютеры в будущем не нужны будут зарядки их можно будет поместить в карман их можно будет что-нибудь нарисовать и вытащить и они будут работать без клавиатуры
Мда запутано , )))))))))))))))))))})))))))))))