<u>PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadSeqReal('Введите длины сторон:',3).OrderBy(t->t).ToArray;
if Sqr(a[2])=Sqr(a[0])+Sqr(a[1]) then Writeln('Треугольник прямоугольный')
else Writeln('Треугольник не прямоугольный')
end.
Т.к 1 Гб = 1048576 Кб, то 1048576 кб * 80 = 83886080 Кб // Находи кол-во Кб в 80 Гб
83886080/1440=58254.2222222 // Находим кол-во дискет нужных для записи 80 Гб.
58255*20г=1165100 г = 1165,1 кг = 1,1651 т // Находим вес дискет.
<span>Ответ: 1,1651 тонны. </span>
Компьютеры подразделяются на ЭВМ компьютеры суперкомпьютеры ноутбуки нетбуки
ЭВМ-электронная вычислительная машина
Компьютеры-обычные компьютеры
Суперкомпьютеры-превосходящие по всем данным обычные компьютеры
Ноутбуки-компьютер меньшего размера
Нетбуки-ноутбуки меньшего размера уступающие им по данным
uses Robot;
begin
Task('cif2');
while FreeFromRight do begin
Right;
if WallFromUp or WallFromDown then Paint;
end;
end.
С использованием?)
var
x,y,z:integer;
begin
write('x= '); readln(x);
write('y= '); readln(y);
z:=x;
x:=y;
y:=z;
writeln;
writeln('x= ',x); write('y= ',y);
readln;
end.