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*
Комментарий*

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

Бочкова_Елена203
det-skazka55
info46
Pavlov447
verav75
ИвановнаВладимир1832
parolmm
ragimovelshad
magichands68
Olegovna Volkov
mira15963256
Васильевич Валерьевна
predatorfishing608
zsa100
GridnevaVNIGNI"
▲