Ar
a, b, c, d, n : integer;
begin
write('введите первое число ');
readln(a);
write('введите второе число ');
readln(b);
write('введите третье число ');
readln(c);
write('введите четвёртое число ');
readln(d);
n:=a;
if b>n then n:=b;
if c>n then n:=c;
if d>n then n:=d;
writeln('Большее из чисел равно ', n);
end.
Var k,sum:integer;
begin
sum:=0;
for k:=50 to 100 do
if((k mod 2 = 0) and (k mod 3 =0)) then sum:=sum+k;
writeln(sum);
end.
Var a:string;
b,c:integer;
beginwriteln('Привет, как тебя зовут?');
readln(a);
writeln(a, ', cколько тебе лет?');
readln(b);
writeln(a, ', и тебе ', b, 'лет, в каком году ты родился?');
readln(c);
writeln(c, ', хорошо!');
writeln('Мне пора идти, пока ', a, '!');
<span>end.</span>
Ответ: a 25
Я пронумеровал каждую букву и стирал по четыре буквы и четыре номера (одинаковых) до тех пор, пока не получил оставшейся номер 25 и букву a.
64*52*52=173056 символов всего в книге
169 * 1024 = 173056 байт (в 169 кБайтах)
173056 / 173056 = 1 байт нужен для кодировки каждого символа
1 байт = 8 бит
Ответ:
2) 8 бит