<span>в карандаше графит .его свойства: Хорошо проводит </span>электрический ток<span>.</span><span> Цвет тёмно-серый, </span>блеск<span> металлический.<span>Неплавкий, устойчив при нагревании в отсутствие воздуха.</span><span>В </span>кислотах<span> не растворяется. Жирный (скользкий) на ощупь.</span></span>
var chastnoe,cifra,x,y:integer;
begin
y:=237;
cifra:=(y div 100);//получаем первую цифру числа 237
chastnoe:=(y mod 100);//находим число получившееся после деления
x:=chastnoe*10+cifra;//находим число Х
writeln(x);//выводим
end.
<u>PascalABC.NET 3.3.5, сборка 1648 от 31.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
function AvgLen(fn:string):real;
begin
if FileExists(fn) then
Result:=ReadAllText(fn).ToWords.Select(w->w.Length).Average
else
Result:=0
end;
begin
Writeln(AvgLen(ReadlnString('Имя файла:')):0:2)
end.
<u>Примеры</u>
Имя файла: input.txt
5.42
Имя файла: Pushkin2.txt
5.20
Имя файла: Pascal.txt
7.02