М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
pollyj
pollyj
02.04.2020 17:14 •  Информатика

Определите вид ветвления (полное или
неполное) и результат выполнения программы:
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,​

👇
Ответ:
GhostS1037
GhostS1037
02.04.2020

X=chislo/7

V=chislo/13

Z=chislo//7

M=chislo//13

if x == z

print "Happy"

Объяснение:

4,7(46 оценок)
Открыть все ответы
Ответ:
polinabaryshni
polinabaryshni
02.04.2020
// 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('Цифр столько же, сколько и букв');
 
end.
4,6(90 оценок)
Ответ:
katya1172
katya1172
02.04.2020
// 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.

Примеры
Двоичное число: 10101010101111110100010101010101010101010110101010101
Десятичное значение: 6007631318265173

Двоичное число: 11110101010101010010010101010110101011011110100000110100100101010101010101010101010101101010101011010101010101010101010101011111111111110101001010000001010101011111010010101
Десятичное значение: 11473727937279925775504671485025665850663901141319317
4,7(60 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ