Var x, y, z, k: integer;
begin
readln(x, y, z);
k:=0;
if (x mod 3 = 0) then begin inc(k); writeln(x, ' кратно трем');end;
if(y mod 3 = 0) then begin inc(k); writeln(y, ' кратно трем');end;
if (z mod 3 = 0) then begin inc(k); writeln(z, ' кратно трем'); end;
if (k =0) then writeln('Переменных, кратных трем, не обнаружено!');
end.
Такая информация скорее всего называется устаревшей
Префиксный код, допускающий однозначное декодирование, соответствует условию Фано: "Ни одно кодовое слово не может быть началом другого слова".
Даны коды 101, 01, 11.
Код буквы А не может быть 0 или 1, так как в этом случае он будет началом кодов других букв.
Рассмотрим двузначные коды: 00 01 10 11
01 10 и 11 не подходит, так как это начала других букв (или сами буквы), зато подходит код 00, причем он кратчайший и наименьший.
Ответ: 00
Если площадь равна S, то сторона равна
,
а диагональ квадрата равна
(сторона , умноженная на корень из двух)
1.
1) (x>-3) and (x<=10)
2) x<>0, y<>0
3) (x>=-10) and (x<0)
4) a mod 3<>0
2.
program koren;
var c, b, a:integer;
begin
write ('Введите 3 числа: ');
read (a);
read (b);
read (c);
if (a<b) and (a<c) then writeln ('наименьшее число - ',a)
else if (b<a) and (b<c) then writeln ('наименьшее число - ',b)
else writeln ('наименьшее число - ',c);
end.
