// 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
Да, можно.
Слово "Да" на этой азбуке переводится так:
_.. ._
Как видно в нем 5 символов,что соответствие условиям задачи!
512 гбит / 8 = 64 Гбайта
64 Гбайта * 1024 = 65536 килобайт
65536 * 1024 = 67108864 байт
67108864 = 2 в степени 26
Ответ 26
var mas:array[1..5] of integer; i:integer;
begin
for i:=1 to 5 do readln(mas[i]);
mas[5]:=mas[2];
writeln(mas[1],mas[2],mas[3],mas[4],mas[5]);
readln;
end.
4 двоичных разряда - 16 значений. Либо от 0 до 15, либо от -7 до +7.