Истинное высказывание:
12+24=36
Ложное высказывание:
16+10=23
<span>В зелье Баба Яга положила мухоморы и паганки. Всего 26 грибов. Сообщение о том, что положила мухоморы, несет 4 бита информации. Сколько было поганок?
Ответ:2</span>
<em>// PascalABC.NET 3.2, сборка 1353 от 27.11.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadlnString('>').ToWords.Println
end.
<u>Пример</u>
> Это строка с лишними пробелами
Это строка с лишними пробелами
Program n1;
uses crt;
var n,m,p,k:integer;
begin
write('введите число: ');
readln(n);
m:=n;
k:=0;
while m<>0 do begin
p:=m mod 10;
if p=4 then k:=k+1;
m:=m div 10;
end;
writeln('кол-во 4: ',k);
end.
Name = input('Введите имя:')
pol = input('Введите пол:'')
rost = int(input('Введите рост:'))
if pol.lower() == 'мужчина':
weight = (rost - 100) * 1.15
print(name + ' ваш идеальный вес ' + str(weight))
else:
weight = (rost - 110) *1.15
print(name + ' ваш идеальный вес ' + str(weight))