Var b; integer;
begin
writeln ("В каком году появились первые ЭВМ?'');
readln (b);
if b=1943 then
writeln ('Вы правы!')
else
writeln ('<span>Вы ошиблись, прочитайте свою рабочую тетрадь ещё раз!</span>');
end.
Переменная sum после выполнения программы будет равна 2.
1)
Program kpa6ya;var x,y,N:integer;BEGINwriteln('x=');readln(x);writeln('y=');readln(y);writeln('N=');readln(N);if (N<1) and (N<2*108) then begin writeln('BBeguTe oT 1 go 2*108 4ucJlo N, a He ',N); readln(N); end;writeln(N/(x+y),' - BpeM9');END.
2(5) = 2(10)
1321(4) = 121(10)
11C(16) = 284(10)
Подставляем все коэффициенты в уравнении в десятичной системе счисления.
2x = 284 - 242 = 42
x = 21
Переводим в семеричную с. с.
21(10) = 30(7)
Ответ: 30(7)
11000000101010000000000000000001