Переводим из двоичной в десятичную систему и получаем :
A=18
B=15
C=20
D=24
ответ D
Если это такая проблема скопировать код и выполнить его, то держите
Вывод
sr=4.5
Ответ:
var s, n: integer;
Мы обозначаем переменные целого типа
var s, n: integer;
начало программы
s:=0; n:=1;
присваиваем переменным значения
while sqr(s+2)<125 do
Цикл, пока корень квадратный s+2 < 125 - выполнять цикл
begin
начало цикла
n:=n*2;
умножаем n на 2
s:=s+2;
прибавляем к s 2
end;
конец цикла
write(n);
вывести n
end.
конец программы
Объяснение:
У Вас ошибка в 9ой строчке, пропустили точку с запятой.
var s, n: integer;
begin
s:=0; n:=1;
while sqr(s+2)<125 do
begin
n:=n*2;
s:=s+2;
end;
<h2>write(n)<u><em>
</em></u><u><em>
;</em></u></h2>
end.
program p1;
var
a1, a2, a3, max: integer;
BEGIN
writeln ('Vvedite 3 chisla cherez probel i nazhmite probel');
readln (a1, a2, a3);
if a1>=a2 then
max:=a1
else
max:=a2;
if a3>max then
max:=a3;
Writeln('Maximalnoe chislo iz nih:', max);
readln
END.