Флеш накопитель это внешнее устройство хранения информации чаще всего подключаемое по usb
u-Universal-универсальная
s-Serial-последовательная
b-Bus-шина
//PascalABC.NET
begin
write('Длина меньшей стороны: ');
var a := ReadlnReal;
writeln('Длина диагонали равна ', sqrt(a*a+ 9*a*a):8:3)
end.
Program Project2;
{$APPTYPE CONSOLE}
uses SysUtils,windows;constnMin=1;nMax=20;typemas=array[nMin..Nmax] of integer;
Vara:mas; i:integer;s:real;begin setconsoleCP(1251); setconsoleOutPutCp(1251); randomize;
for i:=1 to nMax doa[i]:=random(1000)-500;writeln ('Ìàññèâ:'); for i:=1 to nMax do beginwrite ('');write (a[i]:2);writeln ('');end;s:=0;for i:=1 to Nmax dobeginIf a[i]<0 thens:=s+a[i];end;writeln ('Ñóììà îòðèöàòåëüíûõ ýëåìåíòîâ ìàññèâà = ',s:2:2);readln;end.<span>
</span>
Program SandP; //Название программы
var //Описание переменных
x,y: real; // Стороны прямоугольника
S: real; // Площадь прямоугольника
P: real; // Периметр прямоугольника
<span>procedure RectSP<span>(a,b: real; var S,P:real)</span>;</span> //Процедура
begin
S := a * b; //Нахождение площади
P := a + b; //Нахождение суммы
end;
begin //Начало основной части программы
writeln('Введите стороны прямоугольника: '); //Диалог с пользователем
readln(x,y); //Считывание сторон
RectSP(x,y,S,P); //Вызов процедуры
writeln('Площадь равна ',S); //Вывод площади
writeln('Периметр равен ',P); //Вывод периметра
end. <span>//Конец программы</span>
