Ответ:
#include <iostream>
using namespace std;
int main() {
for(short i = 10; i < 100; i++) {
for(short j = 10; j < 100; j++) {
if((i * i + j * j) % 13 == 0)
cout << i << " " << j << endl;
}
}
}
Ответ предоставлен в файле для лучшей читаемости кода.
<span>Program matrica;
Uses crt;
Var a:array [0..8 , 0..8] of integer;
sum1,sum2,i,j:integer;
begin
randomize;
sum1:=0;
sum2:=0
for i:=1 to 8 do
begin
Writeln;
for j:=1 to 8 do
begin
a[i,,j]:=random(10);
if i=j then sum1:=sum1+a[i,j];
if i+j=9 then sum2:=sum2+a[i,j];
Write(a[i,j], ' ');
end;
end;
writeln('Сумма чисел первой диагонали -',sum1,' </span>'Сумма чисел второй диагонали<span>' ,sum2,');
end.</span>
===== PascalABC.NET =====
begin
// 1
var a := ArrRandom(15, 0, 500);
a.Println;
Println('Сумма элементов равна', a.Sum);
// 2
var b := ArrRandom(20, 0, 200);
b.Println;
var i := b.IndexMin;
Println('Наименьший элемент номер', i + 1,
'имеет значение', b[i]);
// 3
var c := ArrRandom(10, 0, 100);
c.Println;
Println('Количество элементов кратных трем равно',
c.Count(p -> p mod 3 = 0))
end.