Program keke;
const n=5;
var a:array[1..n] of integer;
i:integer;
begin
For i:= 1 to n do
readln(a[i]);
FOr i:= 1 to n do
a[i]:=a[i]+3;
for i:= 1 to n do
writeln(a[i]);
readln;
end. <span>
</span>
Из глины может быть сделан кувшин
program mas;
var A:array[1..4,1..6] of integer;
i, j: integer;
summ: integer;
id: integer;
begin
randomize;
for i := 1 to 4 do
begin
for j := 1 to 6 do
begin
A[i, j] := random(30) + 45;
write(A[i,j]);
write(' ');
end;
writeln('');
end;
for j := 1 to 6 do
begin
for i := 1 to 4 do
begin
summ := summ +A[i, j];
end;
writeln(summ / 4);
summ := 0;
end;
readln;
end.
Переводим числа в разных системах счисления в десятичную систему и ищем совпадения с заданными десятичными числами. Например, предполагаем, что 323 - это число в системе счисления с основанием 4. 323(4)=59(10). Не подходит. 323(5)=88(10). Подходит. Итак:
89=1121(4)
77=1001101(2)
61=2021(3)
91=231(6)
88=323(5)
Моё решение - во вложении