300*200=600000
600000*8/8/1024~59Кб
Обозначение примерно (~)
Должно быть так, если не напутал
Монитор (т); Е; клавиатура (к); сканер (с); принтер (т)
текст (Г)
Ответ:
Объяснение:
Program prog;
var
res:=0;
begin
for var i:= 100 to 999 do
begin
if i mod 26 = 11 then res+=1
end;
println(res);
end.
<span>S(y+x, y, z);
- ошибка
y+x имеет тип real+byte = real и не может быть подставлен туда, где ожидался byte. Это связано с запретом в Паскале неявного приведения вещественного типа к целочисленному.
</span>
<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