2)
const
n = 20;
var
a : array [1..n] of integer;
b,i,num : integer;
begin
//Формирование массива пропускаю
readln (b);
nom := 0;
for i := 1 to n do //Поиск номера элемента
if a[i] = b then // , равного b
num := i;
if num <> 0 then
writeln ('Есть, его порядковый номер=',num)
else
writeln ('Нет');
end.
D = (x1^2 + x2^2)^(1/2)
Q = I^2 * R
J = 2 * pi * R
S = v0 * t + a * t^2 / 2
R = 1 / (1 / R1 + 1 / R2)
ИЛИ
D = (x1*x1 + x2*x2)^(1/2)
Q = I*I * R
J = 2 * pi * R
S = v0 * t + a * t*t / 2
R = 1 / (1 / R1 + 1 / R2)
<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Количество спичек:');
var (n2,n4):=(n div 2, n div 4);
Writeln('Максимальная площадь: ',n2=2*n4?n4*n4:n4*(n4+1))
end.
<u>Пример</u>
Количество спичек:1 4
Максимальная площадь: 12
Program massive;
varI : integer;number : array [1..3] of integer;
beginnumber[1] := 100;number[2] := 103;number[3] := 106;for I := 1 to 3 dobeginwriteln(number[I]);end;
end.