1)var a,b,c,d,e,k : real;
begin
writeln('Введите ,b,c,d,e,k');
read(,b,c,d,e,k);
a:= (d + c + b)*e - 5k - 1
writeln(a);
end;
2)var c,x : real;
begin
writeln('Введите x');
read(x);
c:= abs(x+4) - abs(sqr(x)-3*x+6);
writeln(c);
<span>end.</span>
Было: 5 сажень*2,16м + 3 аршина*0,72м = 10,8+2,16 =12,96 м
Видно также, что 3 аршина = 1 сажень (0,72м*3=2,16м=1 сажень)
Значит купили на самом деле просто 6 сажень = 6*7 футов = 42 фута = 6*2,1336м=12,8016м т.е. стала короче на 0,1584метра
16 бит=2байта
Чтобы перевести из байт в Килобайты необходимо разделить на 1024
(8*56*40*2)/1024=35Кб
Расширение первого файла третьей буквой может иметь только символ С, а во втором случае абсолютно любой и необязательно один. Поэтому нельзя сказать, что приведенные записи одинаковые и найдут одинаковые файлы
Если нужно изменить\дополнить\пояснить пиши.
var a:integer;
begin
readln(a);
writeln(a div 60,'мин ',a mod 60,'сек')
end.