Для чого служить прикладне програмне забезпечення? A) гра в комп'ютерні ігри, Б) виконання необхідних користувачу робіт, В) контроль і керування комп'ютерним обладнанням Г) перевірка і покращення роботи складових комп'ютера і комп'ютерних програм.
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018 // Внимание! Если программа не работает, обновите версию!
type tCar=record brand:string; cost:real; end;
begin var a:=new tCar[4]; for var i:=0 to 3 do begin var b:=ReadlnString(i+1+') введите марку и стоимость в рублях:').ToWords; a[i].brand:=b[0]; a[i].cost:=b[1].ToReal; end; var m:=a.Select(t->t.cost).Average; var p:=a.Select(t->Abs(t.cost-m)).ToArray.IndexMin; Writeln('Выбран автомобиль марки ',a[p].brand,' стоимостью ',a[p].cost) end.
Если при сложении с единицей в некоторой системе счисления из двухзначного числа получается трехзначное, то двухзначное число было максимально возможным двухзначным числом, записанным в этой системе и обе его цифры были на единицу меньше основания системы счисления.Таким образом, можно утверждать, что заданные числа это 33₄, 66₇, 88₉Число 100 в системе счисления по оcнованию n равно n², т.е. для указанных чисел это будут значения 4²=16, 7²=49 и 9²=81. Остается вычесть единицу.Соответственно, в десятичной системе 33₄=15, 66₇=48, 88₉=80
// Внимание! Если программа не работает, обновите версию!
type
tCar=record
brand:string;
cost:real;
end;
begin
var a:=new tCar[4];
for var i:=0 to 3 do begin
var b:=ReadlnString(i+1+') введите марку и стоимость в рублях:').ToWords;
a[i].brand:=b[0]; a[i].cost:=b[1].ToReal;
end;
var m:=a.Select(t->t.cost).Average;
var p:=a.Select(t->Abs(t.cost-m)).ToArray.IndexMin;
Writeln('Выбран автомобиль марки ',a[p].brand,' стоимостью ',a[p].cost)
end.