Первый вариант:
Var
a,b:real;
Begin
Write('Введите два числа: ');ReadLn(a,b);
if a>b then Write(a-b)
else Write(b-a)
End.
Второй вариант:
Var a,b:real;
Begin
Write('Введите два числа: ');ReadLn(a,b);
WriteLn(Abs(a-b))
End.
Const
m=9;
n=6;
var
a:array[1..m,1..n] of integer;
i,j:integer;
begin
Randomize;
Writeln('Исходный массив');
for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=Random(201)-100; { на интервале [-100;100] }
Write(a[i,j]:5)
end;
Writeln
end
end.
Txt - Notepad++
doc - Microsoft Word
bmp - FastStone Image Viewer
pdf - Acrobat Reader
zip - 7z, WinZip
Криво, але це те що треба -_-
Ответ:
1) Ввести два числа, сложить, удвоить. Вывести ответ.
2) Ввести число, возвести в квадрат. Вывести ответ. Передайте автору учебника, что у квадрата по определению только ОДНА длина стороны. Сторон четыре, а размер - один.
Объяснение: