Решение задачи показано в прилагаемом файле.
Ответ:
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.
Язык на котором реализовать требуется?
Ответ:
var n, i, x: integer;
begin
randomize;
n := random (7) + 5;
for i := 1 to n do begin
x := random (100) - 50;
write (x:5)
end;
readln
end.
<em><u>Отметь как 5 звезд, нажми на спасибо и выбери как лучший ответ! спасибо!!</u></em>