1-д) var a,b:longint;
c:real;
c:=Sqrt(100)*a+16/5*b;
write (c);
end.
3-а) var b,c:longint;
c:=Sqrt(1)+2*1*b+Sqrt(b);
write (c);
end.
3-б) var a,c:longint;
c:=Abs (1+Sqrt(a));
write (c);
end.
Любая информация является таковой только по причине того что она была принята отнеконго источника. То есть была передана.
Write (ndivm +1)
Если не поймете - прокомментирую
Ответ:
var
a: array [1..3] of Integer;
i, imin: Integer;
begin
for i := Low (a) to High (a) do begin
Write (i, ' число: ');
ReadLn (a [i]);
end;
imin := 0;
for i := Low (a) to High (a) do begin
if a [i] mod 2 = 0 then
if imin = 0 then
imin := i
else if a [i] < a [imin] then
imin := i;
end;
if imin <> 0 then
WriteLn ('Наименьшее четное = ', a [imin])
else
WriteLn ('Четных чисел нет.');
ReadLn;
end.