tatry2005
?>

Написать блок схему и программу(паскаль abcЕсть матрица 3 на 4. Необходимо с этой матрицы перевести одомерный массив все числа которые кратны 2 и 3.

Информатика

Ответы

РубенШафетдинов

PascalABC.NET 3.5.1 + .NET Framework 4.7.1

#1

begin

 var n := ReadInteger();

 var a := Range(1, n);

 //Sum

 a.Sum.Println;

 //произведение

 a.Aggregate(BigInteger.One, (p, q) -> p * q).Println;

 //Кол-во кратных 2 и 3

 a.Where(p -> (p mod 2 = 0) and (p mod 3 = 0)).Count.Println;

 //Среднее ряда

 a.Average.Round.Println

end.

#2

begin

 var A := ReadArrInteger(10);

 A.Println;

 //максимум

 A.Max.Println;

 //Сумма кратных 2 и 3

 A.Where(p -> (p mod 2 = 0) and (p mod 3 = 0)).Sum.Println

end.

Vasilevich Fokin
1. Программное обеспечение - совокупность программ системы обработки информации и программных документов, необходимых для эксплуатации этих программ (определение из ГОСТа).
ПО служит для выполнения определённых задач пользователя, используя ресурсы устройств компьютера.

2. Сообщение указывает, что на диске не обнаружена операционная система.

3. На разных дисках могут быть установлены разные системы. Если бы для переключения надо было бы каждый раз лезть внутрь компьютера, было бы неудобно. Кроме того, один диск может быть резервным, загрузка будет проходить с него, если загрузка с основного диска закончилась неудачно, чтобы провести тестирование системы, провести откат к предыдущим настройкам или установить новую операционную систему.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Написать блок схему и программу(паскаль abcЕсть матрица 3 на 4. Необходимо с этой матрицы перевести одомерный массив все числа которые кратны 2 и 3.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Nikolaevich1534
yusinelnik8
kulttrop
Маркина Ворошилина
bestform
Chausmonk4
lobutev
snabdonm501
Svetlaru70
gumirovane2294
elmira070485
Sergei-Gradus199
sryzhova6392
silicon-films3375
Nadezhdachizhikova7968