// PascalABC.NET 3.3, сборка 1579 от 18.11.2017 // Внимание! Если программа не работает, обновите версию!
begin var (n,m):=ReadInteger2('Количество строк и столбцов в массиве:'); Writeln('*** Исходный массив [',n,',',m,'] ***'); var a:=MatrRandom(n,m,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); var s:=a.Rows.SelectMany(t->t).Where(t->t mod 8=0); Writeln(s.Sum,' - сумма ',s.Count,' чисел(числа), кратных 8') end.
Відповідь:
#include <iostream>
using namespace std;
int main(){
setlocale(LC_ALL , "Rus");
int a,b,x,y;
cout << "Введите первое число: ";
cin >> a;
cout << "Введите второе число: ";
cin >> b;
if(a % b == 0){
cout << "Делится" << endl;
x = a / b;
cout << "Частное: " << x << endl;
}
else if(a % b != 0){
cout << "Не делится" << endl;
x = a / b;
y = a % b;
cout << "Частное: " << x << " Остаток: " << y << endl;
}
return 0;
}
// Внимание! Если программа не работает, обновите версию!
begin
var (n,m):=ReadInteger2('Количество строк и столбцов в массиве:');
Writeln('*** Исходный массив [',n,',',m,'] ***');
var a:=MatrRandom(n,m,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var s:=a.Rows.SelectMany(t->t).Where(t->t mod 8=0);
Writeln(s.Sum,' - сумма ',s.Count,' чисел(числа), кратных 8')
end.
Пример
Количество строк и столбцов в массиве: 6 9
*** Исходный массив [6,9] ***
-66 98 -73 -10 -14 -86 -63 -91 -79
-36 -2 -22 -3 51 59 93 36 -75
72 20 77 12 17 72 71 -41 -73
56 -33 2 -38 -60 17 -14 84 58
10 -99 -8 58 -62 -87 -15 -33 62
-94 -82 93 82 -41 -74 35 94 -84
192 - сумма 4 чисел(числа), кратных 8