Профессии:
почтальон -сообщения долетят в любую точку планеты за секунды
справочное бюро- информация по множеству вопросов
библиотекарь-сохранит сотни томов, быстрый поиск нужного материала
пищущая машинка- набор и редактирование текстов
Program Matrix;
Uses Crt;
type matrix=array[1..3,1..3] of real;
var m:matrix;
procedure PrintMatrix(mas:matrix);
var j,k:integer;
begin
for k:=1 to 3 do
begin
for j:=1 to 3 do
begin
write(mas[k,j]:7:2);
end;
writeln;
end;
end;
procedure Auto;
var i,j:integer;
begin
randomize;
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
m[i,j]:=25+random(21)+i;
end;
end;
end;
begin
clrscr;
Auto;
PrintMatrix(m);
readkey;
end;
Python 3.7.0
import random
pr = 1
for i in range(5):
x = round(random.uniform(1, 1.3), 2)
pr *= x
print(x)
srgeom = round(pr ** (1 / 5), 2)
print("Среднее геометрическое чисел: " + str(srgeom))
Немного непонятно, но если сам пробовал, то разберешься
1. var
i:integer;
begin
for i:=1 to 10 do
begin
writeln (i, sqr(i));
readln;
end.
2. var
i:integer;
begin
for i:=2 to 20 do
begin
if sqr(i) div 2 = 0 then
write (i, ' = 'sqr(i) );
end;
readln;
end.