1.Дискета
2. не знаю
прости!!!
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;
ПЕР
массив: ДОСТУП К РЯД ИЗ ЦЕЛ;
N, сч, сумма: ЦЕЛ;
УКАЗ
Вывод.Цепь("Введите N: ");
N := Приём.Число();
СОЗДАТЬ(массив, N);
Вывод.Цепь(".^Введите элементы массива:^");
сумма := 0;
ОТ сч := 0 ДО N - 1 ВЫП
массив[сч] := Приём.Число();
Вывод.Цепь(" ");
ЕСЛИ массив[сч] > сч ТО
УВЕЛИЧИТЬ(сумма, массив[сч])
КОН
КОН;
Вывод.ЧЦел("^Сумма особых элементов: %d.", сумма, 0, 0, 0)
КОН Задание.
20*x-обём файла винтика
20*x*0.2+20x=24x-обём шпунтика
20x-4x=16x-осалось у винтика когда шпунтик начал сказать свой файл
16x/(x/2)=32 мин будет у витика
24x/(x/2)=48мин у шпунтика
48-(32+4)=12мин разница времени
ответ 12
Program n1;
var a,b: real;
begin
readln(a,b);
writeln('S=',a*b);
write('P=',(a+b)*2);
end.