//PascalABC.NET 3.3,сборка 1611 от 06.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var (a,b):=readinteger2('a,b->');
if a.IsEven then Writeln('a+b=',a+b) else
Writeln('a*b=',a*b);
end.
Вариантов кодировок UNICODE достаточно много и один из самых популярных - в котором каждый символ всегда кодируется двумя байтами. Поэтому кириллица, цифры, латиница, спецзнаки - все кодируется одинаковым числом байт.
Один символ кириллицы кодируется 2 байтами = 2х8 = 16 битами.
Ответ:
1 638,4 секунды
Объяснение:
5242880 бит/с = 2^20*5 бит/с = 2^17*5 байт/с=2^7*5 КБ/с
1 ГБ=2^10 МБ = 2^20 КБ
t= 2^20/(2^7*5)=2^13/5=8192/5=1 638,4 секунд
Вот.
program pr;
var s,k,a,i,sr:integer;
begin
s:=0;
k:=100;
a:=100;
for i:=a downto 11 do begin
s:=s+a;
k:=k-1;
a:=a-1;
end;
sr:=sqr(s);
writeln(sr,' ',k);
end.