1 ---> 15 1)+1 2)+2 3)+4
---------------------------------------
1 начало
2 1+1 1
3 1+2; 2+1 2
4 3+1; 2+2 3
5 1+4; 3+2; 4+1 6
6 5+1; 4+2;2+4 10
7 6+1;5+2;3+4 18
8 7+1;6+2;4+4 31
9 8+1;7+2;5+4 55
10 9+1;8+2;6+4 96
11 10+1;9+2;7+4 169
12 11+1;10+2;8+4 296
13 12+1;11+2;9+4 520
14 13+1;12+2;10+4 912
15 14+1; 13+3;11+4 1601 ответ 1601
Const
N = 13;
Var
A:array[1..N] of integer;
i,Min,Max:integer;
Begin
Write('Исходный массив: ');
For i:= 1 to N do
Begin
A[i]:=Random(21)-10;
Write(A[i],' ')
End;
WriteLn;
Min:=A[N];
Max:=A[N];
For i:= 1 to N-1 do
Begin
if A[i]>Max then Max:=A[i];
if A[i]<Min then Min:=A[i]
End;
WriteLn('Max = ',Max);
WriteLn('Min = ',Min);
WriteLn('Max - Min = ',Max-Min);
End.
Пример:
Исходный массив: -1 5 -8 -2 3 -2 -3 10 -10 -8 -4 5 -3
Max = 10
Min = -10
Max - Min = 20
Ответ:
program Calc;
var
a, b: Double;
begin
Write ('A, B = ');
ReadLn (a, b);
if (a <> 0) and (b <> 0) then
WriteLn ('Результат = ', Sqrt (a * b) :20 :20)
else
WriteLn ('Деление на 0');
ReadLn;
end.
Ответ:4
Объяснение:
Поднялся на 2, тоесть оказался в D:\, затем создал каталог и переместил файл Общая. В итоге D:\9класс\общая
<span>var s,k: integer;
// описали переменные, которые будут использованы в программе: s и k целые числа
begin
s:= 500;
// переменной s присвоили начальное значение 500
for k:= 4 to 10 do
// организовали цикл для k от 4 до 10 с шагом 1. То есть нижеследующий оператор цикла будет выполняться 7 раз (для k=4, k=5, k=6, ... k=10)
s:= s - 2*k;
// для каждого k поочередно считаем s:
// k=4 -- s=500-2*4=492
// k=5 -- s=492-2*5=482
</span>// k=6 -- s=482-2*6=470
// k=7 -- s=470-2*7=456
// k=8 -- s=456-2*8=440
// k=9 -- s=440-2*9=422
// k=10 -- s=422-2*10=402<span>
write (s);
// выводим на экран итоговое значение s: 402
end.</span>
