Var a,b,c:integer;
Begin
Readln(a,b,c);
If (a+b>c) and (a+c>b) and (b+c>a) then
Write('yes') Else
write('no').
Program n_1;
var x:integer;
begin
readln(x);
x:=(x mod 10) + ((x div 10) mod 10) + ((x div 100) mod 10);
if (x mod 2 = 0) then writeln('true')
else writeln ('false');
end.
(в программе 2 таких чисел не существует)
Program n_2;
var x, y:integer;
begin
readln(x);
y:=x*x;
x:=(x mod 10) + ((x div 10) mod 10) + ((x div 100) mod 10);
x:=x*x*x;
if (x=y) then writeln('true')
else writeln ('false');
end.
Program n_3;
var a, b, c:integer;
begin
read(a, b, c);
if (a=b) or (b=c) or (a=c) then writeln('true')
else writeln ('false');
end.
Если я правильно посчитала, то ответ 4
1).Числовая информация представлена в Десятичной системе счисления или другими словами (позиционной). Сейчас говорят в Десятичной.
2)В символической используется позиционная двоичная.
3)В графической всегда восьмеричная система счисления.
4)Для звука будет двоичная система счисления.
5)А для видео Шестнадцатиричная система счисления!
А 000
Б 001
В 010
Г 011
Д 100
И так получаем ДГБАВ = 100 011 001 000 010
Переводим в 8 систему получаем 43102
Переводим в 16 систему получаем 4642
Ответ: 43102 в 8 и 4642 в 16