Имеются сведения об игрушках, продаваемых в «Детском мире»: название, количество, цена, возраст детей, - id1196609620201019 от Princess05082006 19.10.2020 07:45

Question

Информатика: Имеются сведения об игрушках, продаваемых в «Детском мире»: название, количество, цена, возраст детей, для которых она предназначена. Определить: ­ названия игрушек, цена которых не превышает 100 грн., и подходят детям до 5 лет; ­ название самой дорогой игрушки; ­ общую стоимость продаваемых игрушек в магазине; ­ по заданному названию игрушки выдайте полную информацию о ней; ­ сформировать из данных минимальную квадратную матрицу (недостающие элементы заменить 0), вывести в виде таблицы; найти суму

Princess05082006 · Accepted Answer

//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)

1)
begin
var a:=ReadString('a->');
Println('Сумма больше ',a.JoinIntoString(' ').ToIntegers.Sum>ReadInteger('k->')?'True':'False');
Println('a четное ',a.ToInteger.IsEven);
end.

Пример:
a-> 123456
k-> 22
Сумма больше False
a четное True

2)
begin
var a:=ReadInteger('a->'); Println('a нечетно',a.IsOdd);
var b:=a.ToString.JoinIntoString(' ').ToIntegers;
Println('Первая равна x',b.First=ReadInteger('x->')?'True':'False');
Println('Последняя равна y',b.Last=ReadInteger('y->')?'True':'False');
end.

Пример:
a-> 456485
a нечетно True
x-> 5
Первая равна x False
y-> 5
Последняя равна y True

MOGZ ответил