<span>program</span><span> kalkulator; </span>
<span>uses</span><span> crt; </span>
<span>var</span><span> a</span><span>,</span><span>b</span><span>,</span><span>c</span><span>:</span><span>real</span><span>; </span>x<span>:</span><span>integer</span>;
<span>Begin</span>
clrscr;
<span>Writeln</span><span>(</span><span>'введите 2 числа'</span><span>)</span>;
<span>Readln</span><span>(</span>a<span>,</span>b<span>)</span>;
<span>Writeln</span><span>(</span><span>'выберете действие'</span><span>)</span>;
<span>Writeln</span><span>(</span><span>'1-"+" 2-"-" 3-"*" 4-"/"'</span><span>)</span>;
<span>Readln</span><span>(</span>x<span>)</span>;
<span>case</span> x <span>of</span>
<span>1</span><span>:</span><span>begin</span> c<span>:=</span>a<span>+</span>b; <span>Writeln</span><span>(</span>c<span>:</span><span>2</span><span>:</span><span>2</span><span>)</span>; <span>end</span>;
<span>2</span><span>:</span><span>begin</span> c<span>:=</span>a<span>-</span>b; <span>Writeln</span><span>(</span>c<span>:</span><span>2</span><span>:</span><span>2</span><span>)</span>; <span>end</span>;
<span>3</span><span>:</span><span>begin</span> c<span>:=</span>a<span>*</span>b; <span>Writeln</span><span>(</span>c<span>:</span><span>2</span><span>:</span><span>2</span><span>)</span>; <span>end</span>;
<span>else</span><span>begin</span> c<span>:=</span>a<span>/</span>b; <span>Writeln</span><span>(</span>c<span>:</span><span>2</span><span>:</span><span>2</span><span>)</span>;
<span>end</span>;
<span>end</span>;
<span>Readln</span>;
<span>end</span>.
Вместо Х там должно быть 2
===== PascalABC.NET =====
-1-
begin
var a := new integer[9];
for var i := 0 to 2 do
begin
a[3 * i] := ReadInteger('Введи элемент ' + (3 * i + 1).ToString);
a[3 * i + 1] := 6 * i + 4;
a[3 * i + 2] := Random(0, 9)
end;
a.Println
end.
-2-
begin
var a := ArrRandom(15, -99, 99);
a.Println;
var b := a.Select(p -> p * p).ToArray;
b.Println;
Println('Разность', a.Max - b.Min)
end.
Файловые системы: FAT32, NTFS, <span>exFAT и FAT
Чтобы выбрать файловую систему при форматирование нужно нажать на соответствующий список выбора файловой системы, по умолчанию стоит FAT32.</span>