Var a: byte;
begin
writeln('Введите номер месяца:');
readln(a);
case a of
1, 2, 12: writeln('Зима');
3..5: writeln('Весна');
6..8: writeln('Лето');
9..11: writeln('Осень')
else writeln('Ошибка');
end;
end.
10кб*8*1024=81920бит
40*64=2560 всего символов на 1 странице
81920/2560=32 страницы
в ячейку B3 введите формулу =($A3*10+B$2)^2
Ответ:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var s:string;
n,i,k:byte;
begin
readln(s);
n:=length(s);
k:=0;
for i:=1 to n do
if upcase(s[i])='A' then
begin
inc(k);
if s[i]='a' then s[i]:='b'
else s[i]:='B';
end;
writeln(s);
write(k)
end.
Объяснение:
В нулевой строке 1 буква D
В первой две (нулевая удвоилась и дописали A, а не D)
Во второй 4 (дописали B), в третьей 8 (C), в четвертой 16+1=17 (дописали D в конец), дальше №5 - 34, №6 - 68, №7 - 136, №8 - 272.
Ответ. 272.