#include<iostream>#include<cstdlib>using namespace std;
int main(){ int a, b; cin >> a >> b; int mas[5][5]; for(int i=0; i<5; i++) for(int j=0; j<5; j++) mas[i][j]=rand()\%(b-a+1)+a;
}
//1
for i := -3 to 3 do
Read(a[i]);
//2
Randomize;
for i := -3 to 3 do
a[i] := Random(101) - 50;
//3
for i := -3 to 3 do
a[i] := 5 * i;
//4
Randomize;
for i := -3 to 3 do
a[i] := Random(41) + 150
Ответ: Компилятор PascalABC.NET
1) var a,v: integer;
begin
writeln('a'); readln(a); v:=a*a;
writeln(v); end.
2) var a,b,c, v: real;
begin
writeln('a'); readln(a);writeln('b'); readln(b);writeln('c'); readln(c);
v:=(a+b+c)/3;
writeln(v); end.
3)var v,y: integer;
begin
writeln('y'); readln(y); v:=8*y;
writeln(v); end.
1985 = М + 622 - М/33
(М - М/33) = 1363
32М/33 = 1363 ⇒ М ≈ 1405.6
Ответ: 1405 или 1406 год.