2.
var z,y:integer;
begin
write('Введите z');
readln(z);
if (z>0) and (z<0) then writeln(y=(1/z)+(5/(z-6)))
else
writeln('На ноль делить нельзя!');
readln;
end.
Номер 1 сделан в фотке!:)
Дай лучший ответ мне, плиз оч нужно!)
Const
n = 10;
var
a: array[1..n] of integer;
i, j, t: integer;
begin
Randomize;
Writeln('Исходный массив');
for i := 1 to n do
begin
a[i] := Random(16)-10;
Write(a[i]:4)
end;
Writeln;
for i := 1 to n-1 do
for j := 1 to n-i do
if a[j] > a[j+1] then
begin t := a[j]; a[j] := a[j+1]; a[j+1] := t end;
Writeln('Отсортированный по возрастанию массив');
for i := 1 to n do Write(a[i]:4);
Writeln
end.
<em><u>Тестовое решение:</u></em>
Исходный массив
-10 -9 2 -3 -6 -10 -2 5 4 0
Отсортированный по возрастанию массив
-10 -10 -9 -6 -3 -2 0 2 4 5
Uses Crt;
const
n=6;
var
i,k:byte;
p:longint;
a:array[1..n] of shortint;
begin
Randomize;
k:=0; p:=1;
ClrScr;
for i:=1 to n do begin
a[i]:=Random(51)-25; { [-25..25] }
Write(a[i],' ');
if a[i] mod 5=0 then begin k:=k+1; p:=p*a[i] end
end;
Writeln; Writeln('k=',k,', P=',p);
ReadKey
end.
Begin
writeln('Я люблю информатику');
end.
3,6e+8
0,03038
0,00685
5,625
5,431004875