Uses crt;
procedure VVOD(var s:string;var i,error:byte);
begin
repeat
read(s);
val(s,i,error);
if error=1 then
write('введены не числовые коэфиценты, повторите ввод: ');
if ((i>15) and (i<0)) then
write('число не укладывается в заданный интервал');
until ((error=0) and (i<=15) and (i>=0));
If i<=9 then writeln(i);
If i>=10 then
begin
if (i=10) then S:="A";
if (i=11) then S:="B";
if (i=12) then S:="C";
if (i=13) then S:="D";
if (i=14) then S:="E";
if (i=15) then S:="F";
writeln(S);
end;
end;
Defrag.exe format.com regedit.com fdisk.exe я токо столько знаю .
V₁=4000Кбайт
t₁=60 c
t₂=45 с
V₂-?
v=V/t
V₁/t₁=V₂/t₂ -> V₂=V₁*t₂/t₁=3000 Кбайт
Опрератор ввода:
Read (значение следующего данного считывается с этой же строчки);
Readln (значение следующего данного считывается с новой строчки)
Опрератор вывода:
Write (выводит информацию и оставляет курсор в той же строке)
Writeln ( выводит информацию и переводит курсор на следующую строку)
Writeln (...) (выводит пустую строку