// 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
Всего в парке 420 деревьев 65 сосен
65-14=51елей, значит лиственниц тоже 51
51+12=,63 кипариса
420-65-51-51-66=190
1) Пуск->Все программы->Стандартные->Проводник
2)Нажатием любой кнопки на клавиатуре или мыши
3)Правой кнопкой мыши по пустому месту, в открывшемся меню выбрать раздел "Создать"->"Создать папку"
4)Эти операции производятся при помощи меню, открывающегося правой кнопкой мыши(возможно еще чем-то).
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var s:=ReadlnString('>');
Println(Regex.Replace(s,'(.)\1+','...'))
end.
<u><em>Тестовое решение:</em></u>
> *** 244800+10000=254800 тестовый пример *****
... 2...8...+1...=2548... тестовый пример ...
64 гб=68719.4765 мб, стандартный объем дискеты 1.44мб, значит 68719.4765/1.44= 47721 дискет