Алгоритм должен выводить 0, если нельзя построить треугольник с длинами сторон a, b, c (a, b, c-заданные числа), иначе 3, 2, 1 если треугольник соответственно, равносторонний или равнобедренный или другой.

cls

a:

input a

if a< =0 then goto a

b:

input b

if b< =0 then goto b

c:

input c

if c< =0 then goto c

if a> =b+c or b> =a+c or c> =a+b then print 0: end

if a=b and b=c and c=a then print "треугольник равноcторонний" end

if a=b or b=c or c=a then print "треугольник равнобедренный": else priint "другой"

end

program vlad971997; uses crt; var  a,b,c: real; begin  writeln('*** alphaues is ***');   writeln('***                  ok                        ***');   write('введите a '); readln(a);   write('введите b '); readln(b);   write('введите c '); readln(c);   if (a> =b+c) or (b> =a+c) or (a> =b+c) then          writeln('ответ "0": со сторонами a,b,c нельзя построить треугольник')      else          if (a=b)and (b=c) and (a=c) then                   writeln('ответ "3": со сторонами a,b,c можно построить равносторонний треугольник')              else                   if (a< > b)and (b< > c) and (a< > c) then                           writeln('ответ "1": со сторонами a,b,c можно построить другой треугольник')                      else                          writeln('ответ "2": со сторонами a,b,c можно построить равнобедренный треугольник')end.

 

проверено - работает на паскаль авс

#include "iostream" using namespace std; int main(){ int secound =0; int hh =0; int mm =0; int ss =0; int ch[5]; cin > > secound; hh = secound / 3600; mm = secound/60 - hh * 60; ss = secound - hh*3600 - mm *60 ; if(hh > =24){ int b = hh / 24; hh = hh - 24 *b; } ch[0] = hh; if(mm< 10){ ch[1] =0; ch[2] = ss; }else ch[1] = mm / 10; ch[2] = mm - mm / 10 * 10; if(ss< 10){ ch[3] = 0; ch[4] = ss; } else ch[3] = ss /10; ch[4] = ss - ss / 10 * 10; cout < < ch[0] < < ': ' < < ch[1] <

Мощность алфавита - 64, значит объем одного символа равен 6 бит, так как 2^6 = 64 всего в тексте 500 символов, объем равен 500*6 = 3000. переведём в байты 3000 бит : 8 = 375 байт переводить в кбайты бессмысленно, но раз 375 : 1024 =  0,3662109375 кбайт  2. в лотерее 64 шара, т.к. все шары разные, то  выпадение шаров равновероятно, значит на один шар приходится 6 бит, т.к. 2^6 = 64. сообщение несёт 36 бит информации, значит количество шаров равно 36  бит : 6  бит = 6 шаров.