Var x,y,z:integer;
begin
x:=13;
y:=3;
z:=x;
x:=z div y;
y:=x;
writeln(x+' '+y+' '+z);
end.
Ответ
<span>3)x=4, y=4, z=13</span>
<span>Первый сказал: “Все мы лжецы” - он лжец, так как есть и рыцари
</span>Второй сказал: <span>“Все, кто говорили до меня, лжецы” - он рыцарь
Третий сказал: </span><span>“Все, кто говорили до меня, лжецы” - он лжец, так как второй рыцарь
Остальные тоже лжецы, так как говорят тоже самое.
Ответ: рыцарь один
</span>
Var i,a1,a2:integer;
sum:longint;
begin
a1:=1;
a2:=2;
sum:=0;
while (a1<102) or (a2<102) do
begin
sum:=sum+(a1*a2);
a1:=a2+1;
a2:=a1+1;
end;
writeln(sum);
end.
Вопрос неправильно скорректирован.
Для представления текстовой информации в компьютере используется алфавит мощностью 256 символов. Один символ из такого алфавита несет 8 бит информации (28 =256). 8 бит =1 байту, следовательно, двоичный код каждого символа в компьютерном тексте занимает 1 байт памяти.