Const
N = 5;
M = 10;
Var
A : array[1..N,1..M] of Integer;
i,j : Byte;
Begin
For i:=1 to N do
Begin
For j:=1 to M do
Begin
If i>j then A[i,j]:=i else A[i,j]:=i*j;
Write(a[i,j]:6);
end;
Writeln;
end;
end.
Написано на Pascal
var
a,b,i:integer;
begin
writeln('Введите длины сторон шестиугольника:');
for i:=1 to 6 do begin
write('Длина '+i+' стороны: ');
readln(a);
b:=b+a;
end;
writeln('Периметр равен: '+b);
end.
Readln(n);
for i:=2 to n do
if n mod i=0 then
writeln(i);
break;
end.
1445г. изобрел германский ювелир Иоганн Гутенберг.