16 бит=2 байта
Колво символов*2 байта=108 байт
Ответ 1)
-> два мальчика
<- один мальчик
-> один взрослый
<- возвращается один мальчик, который остался после первых двух действий
-> два мальчика
<- один мальчик
-> взрослый
<- мальчик, который после 5 и 6 действия
-> два мальчик
// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
begin
var a:=ReadInteger('Введите целое число, не превышающее 9:');
if a<10 then Writeln('S2=',Range(a,10).Select(i->i*i).Sum)
else Writeln('Введенное значение больше 9')
end.
<u><em>Тестовое решение</em></u>
Введите целое число, не превышающее 9: -7
S2=525
<em>// PascalABC.NET 3.2, сборка 1367 от 20.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a,b:integer;
Write('Введите a и b: '); Read(a,b);
Writeln('П=',Range(a,b).Aggregate(BigInteger(1),(m,n)->m*n))
end.
<u>Пример</u>
Введите a и b: 13 57
П=84607064997021339293398188869165201400121387478093188300800000000000
Сто-скатерть пол-коврик роман-глава стихотворение-поэт песня композитор самолёт-лётчик