написать программу на ПАСКАЛЕ: Дана матрица А, имеющая N строк и N столбцов. Сформируйте два одномерных массива. В один перешлите четные, а в другой
10-11 класс
|
-нечетные элементы матрицы. Выведите на экран все массивы.
ИЛИ
var
i,f:int64;
begin
f:=1;
i:=1;
while f<1255534676756 do
begin
f:=f*i;
writeln(i:2,' ',f);
i:=i+1
end
end.
Результат работы программы:
1 1
2 2
3 6
4 24
5 120
6 720
7 5040
8 40320
9 362880
10 3628800
11 39916800
12 479001600
13 6227020800
14 87178291200
15 1307674368000
а вторую знаешь? да для авс можно
Другие вопросы из категории
файла в килобайтах? В ответе указать только число без единиц измерения.
Массив заполнить случайными числами из [-1000; 1000]
задача. даны площади нескольких квадратов. найти длину диагонали самого большого из них.
нц для i от 1 до 3
Читайте также
Сформируйте два одномерных массива. В один перешлите четные, а в другой
-нечетные элементы матрицы. Выведите на экран все массивы.
добрый вечер, всем. помогите, пожалуйста, написать программу на Ассемблере.
задание:
Создать программу на языке Ассемблер, что позволяет организовать вычисления над элементами массивов
Объединить два массива 8-битных целых чисел со знаком. Сначала элементы второго затем первого.
заранее огромное спасибо всем!
2.написать программу в паскале
f(x)=2(sin*sin)x+1
минимальным элементами массива (включая их)
Дан двумерный массив из пяти строк и пяти столбцов. Найти сумму элементов первой стоки и произведение элементов второго столбца.