Var a,b,c:integer;
begin
writeln('Введите три числа:');
readln(a,b,c);
if (a=b)and(b=c)
then writeln('Треугольник равносторонний')
else writeln('Треугольник не равносторонний (а может и не треугольник)');
end.
Пример:
Введите три числа:
5 5 5
Треугольник равносторонний
237 в десятичной системе=11100001 в двойчной системе.
237/2=118( 1 остаток)
118/2=59(0 остаток)
59/2=28( 0 остаток)
28/2=14(0 остаток)
14/2=7(0 остаток)
7/2=3(1 остаток)
3/2=1(1 остаток)
ответ записывается СПРАВА НА ЛЕВО
Ну что ж ,снова я )
Честно говоря немного не понял задания ,но сделаю что могу =) Наверное имеется ввиду вес ОДНОГО символа этого сообщения ? Если так ,то :
Просто делим 450 битов на 150 символов.
450\150=3 бита
Ответ : 3 бита
<span>ЮЯЧЬЯБУ <span>ПРИНТЕР
Смещение букв в алфавите на 18 букв (</span></span><span>ROT18</span>)