1)1110*101=112110
2)112110+1101=113211
3)113211\%111=1019,9189
4)1019,9189-1011=8,9189
Var time:integer;
var summa:real;
var month:string;
k:=1.05;
begin
month := ' месяцев';
summa:=10000;
while summa<20000 do begin
summa:=summa*k;
time:=time+1;
end;writeln('Ответ:',time + month);
end.
var a: array [1..5, 1..7] of integer;
i,j,max,min: integer;
begin
for i:=1 to 5 do
for j:=1 to 7 do
A[i,j]:=random(100);
max:=-1;
min:=101;
for i:=1 to 5 do begin
for j:=1 to 7 do
write(A[i,j]:5);
writeln();
end;
for i:=1 to 5 do
for j:=1 to 7 do
if A[i,j]>max then max:=A[i,j];
for i:=1 to 5 do
for j:=1 to 7 do
if A[i,j]<min then min:=A[i,j];
for i:=1 to 5 do
for j:=1 to 7 do begin
if A[i,j]=max then A[i,j]:=min
else if A[i,j]=min then A[i,j]:=max;
end;
writeln();
for i:=1 to 5 do begin
for j:=1 to 7 do
write(A[i,j]:5);
writeln();
end;
end.
Const
n = 5;// количество элем массиваvar
a: array [1..n] of integer;
sum, i: integer;begin
for i := 1 to n do
readln(a[i]);
for i := 1 to n do
if a[i] = i then
sum := sum + a[i];
writeln(sum);
end.