45 -1 = 44
44 / 2 = 22
22 / 2 = 11
11 - 1 = 10
10 / 2 = 5
Итого: 2 1 1 2 1
<span>a = 0
for i in range(int(input())):
a += int(input())
print(s<span>)</span></span>
Var time:integer;
var summa:real;
var month:string;
k:=1.05;
begin
month := ' месяцев';
summa:=10000;
while summa<20000 do begin
summa:=summa*k;
time:=time+1;
end;writeln('Ответ:',time + month);
end.
Если брать по 1 байту на символ, то строка будет занимать 32 байта, а страница 32^6=4,096 байт. 640/8=80 страниц
2) 11 байт
Ответ:
var
a:integer;
b,c:string;
begin
writeln('--------------------------');
writeln('---Программа знакомства---');
writeln('--------------------------');
writeln('Я персональный ЭВМ,');
writeln('А как зовут тебя?');
readln(b);
writeln('Сколько тебе лет?');
readln(a);
writeln('В каком классе ты учишься?');
readln(c);// цифра и буква
writeln('Рада познакомиться с тобой, '+b);
writeln('Молодец, в '+a+' лет написал такую программу!');
writeln('В твоём '+c+' классе все такие?');
end.