Определите вид ветвления (полное или неполное) и результат выполнения программы: 1 # (часливое число 2 a = 49 ds iner. TH 3 5 6 7 if a + 7 == e оr a % 13 == е: print("Happy") else: print("Better use another") r Own ау. er 00,
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017 // Внимание! Если программа не работает, обновите версию!
egin var s := ReadString; var digit, letter: integer; for var i := 1 to s.length do if (s[i] >= '0') and (s[i] <= '9') then inc(digit) else if (s[i] ='ё')or(s[i]='Ё')or(s[i] >='а')and(s[i]<='я')or(s[i] >='А')and(s[i]<='Я')or(s[i] >='a')and(s[i]<='z')or(s[i] >='A')and(s[i]<='Z')then inc(letter);
if digit < letter then writeln('Букв больше, чем цифр на ', letter - digit) else if digit > (s.length - digit) then writeln('Цифр больше, чем букв на ', digit - letter) else Writeln('Цифр столько же, сколько и букв');
// PascalABC.NET 3.3, сборка 1579 от 18.11.2017 // Внимание! Если программа не работает, обновите версию!
begin var s:=ReadlnString('Двоичное число:'); if s.MatchValues('[^01]').Count>0 then Writeln('Не двоичное число') else begin var (n,k):=(BigInteger(0),BigInteger(1)); for var i:=s.Length downto 1 do begin if s[i]='1' then n+=k; k*=2 end; Writeln('Десятичное значение: '+n.ToString) end end.
X=chislo/7
V=chislo/13
Z=chislo//7
M=chislo//13
if x == z
print "Happy"
Объяснение: