===== PascalABC.NET =====
function sogl(c: char) :=
not (c.ToUpper in ('АЕЁИОУЫЭЮЯ'));
// проверка функции
begin
var s := 'ТестируемРусскийАлфавит';
foreach var c in s do
Print(sogl(c));
end.
На самом деле все это будет правильно работать лишь если функции давать исключительно русские буквы.
MCMXCVII = 1997;
Ответ: 1997;
8бит = 1байту
1024байт = 1килобайт
1024килобайта = 1 мегабайт
Получается 377487360 бит
Ответ:
надо разложить его на множители и отыскать чётные
Program n1;
var i,s,n: longint;
begin
s:=0;
readln(n);
for i:=1 to n do s:=s+sqr(i*2);
writeln(s);
end.