1, 4 ,5 ,6, 7, 8, 3(под вопросительным знааком)
Program Massiv;
Uses Crt;
var i,j:integer;
a: array[1..6,1..6] of integer;
begin
clrscr;
randomize;
for i:=1 to 6 do
begin
for j:=1 to 6 do
begin
a[i,j]:=random(101)-50;
end;
end;
for i:=1 to 6 do
begin
for j:=1 to 6 do
begin
write(a[i,j]:3);
end;
writeln;
end;
readkey;
end.
А6. Текстом в MS - Excel является запись:
1. А1+М5
2. -12.5
3. =В7+Н6
Const n=11;
var a:array[1..n] of integer;
i,s:integer;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=random(16);
write(a[i],' ');
end;
writeln;
s:=0;
for i:=1 to n do s:=s+a[i];
writeln('s=',s,' sr=',s/n:5:2);
<span>end.
Пример работы:
6 12 7 9 3 15 10 10 6 2 8
s=88 sr= 8.00<span>
</span></span>
# Симметричные числа
input "Нижняя граница диапазона = ", a
input "Верхняя граница диапазона = ", b
if b<a then
t=a
a=b
b=t
end if
if a<10 then
print "Числа должны быть по крайней мере двухзначными"
goto Fin
end if
for i=a to b
s$=i
n=length(s$)
k=n\2
for j=1 to k
if mid(s$,j,1)<> mid(s$,n-j+1,1) then goto NonSimm
next j
print i
NonSimm:
next i
Fin:
end
<u>Тестовое решение:</u>
Нижняя граница диапазона = 954
Верхняя граница диапазона = 1423
959
969
979
989
999
1001
1111
1221
1331