Var i, min, max: integer;
function f(n: integer):integer;
begin
f:=n*n-4*n+3;
end;
begin
min := f(1);
max := f(1);
for i:=1 to 3 do
begin
if f(i) > max then max := f(i);
if f(i) < min then min := f(i);
end;
writeln(min, ' ', max)
end.
712₈ = 7·8²+1·8¹+2·1 = 458₁₀
Var i,k:integer;
s:real;
begin
k:=2;
for i:=1 to 25 do
begin
s:=s+sqrt(k);
k:=k+2
end;
WriteLn(s)
end.
Мальчик, увидев на светофоре знак того, что можно перейти дорогу, смело пошел по зебре, расположенной на дороге, а водитель, увидев , что ехать нельзя, остановился и ждет, пока пешеходы перейдут дорогу.
Ответ:
Program Massiv; //Заголовок программы
const n=12;
var i,m,p:integer; s: array[1..n] of integer;
begin
p:=1;
for i :=1 to n do
s[i]:= random (10,44);
for i :=1 to n do begin
if (s[i] mod 5) = 0 then p:= p * s[i];
end;
writeln(s);
if p = 1 then
write('Нет элементов кратных 5')
else
write('p = ', p);
end.
Объяснение:
программа описана в файле ворд