<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
for var a:=1 to 9 do
for var b:=1 to 9 do
for var c:=1 to 9 do
if 100*a+10*b+c=5*a*b*c then Write(a,b,c,' ');
end.
<u>Результат</u>
175
Дано:
Книга содержит 15 страниц.
На каждой странице - 20 строк.
В каждой строке 40 символов
1) 15 * 20 * 40 = 1200 - символов всего.
2) 1200 * 6 = 72000 байтов = 70.31 килобайтов
Ответ: 70.31 килобайтов.
var i,s:integer;
begin
for i:=1 to 99 do s:=s+i;
writeln(s);
end.
В идеале, оно ничего не выведет, так как код некорректно записан.
Если это не весь код, скинь продолжение. Если весь, то тогда не запустит программу.