Берем формулу I=K*i и узнаем i
i= 61440/7680=8
Мощность равна N=2^i, т.е. 2^8=256.
Ответ: 256.
2 мб = 2048 кб
2048 / 40 = 51,2(раза больше)
<u>1. Самый незатейливый вариант, выдающий значение суммы 21</u>
begin
Writeln(1+2+3+4+5+6)
end.
<u>2. Типовой "школьный вариант"</u>
var
i,s:integer;
begin
s:=0;
for i:=1 to 6 do s:=s+i;
Writeln(s)
end.
<u>3. Современный вариант, немного покороче</u>
<em>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
1.To(6).Sum.Println
end.
Тут через оператор case нужно указывать вручную, ну я пока что легких путей не вижу. Легкая программа, но замудренная..
Пример:
case a of
01.02.98 : writeln ('1 февраля тысяча девятьсот девяносто восьмой год');
02.02.98 : writeln (2 февраля тысяча девятьсот девяносто восьмой год');
Тут дата : writeln ('Тут что выводить');
итд
end;
// PascalABC.NET 3.3
begin
var a:=ReadSeqIntegerWhile(x->x<>0).ToArray;
Print(a.Count,a.Where(x->(x mod 2<>0)and(x mod 3=0)).Count);
end.
Пример:
20 87 15 46 61 0
5 2