Часть схемы, передающей информацию - канал.
Хоуми, у тебя в процедуре целочисленный тип, а вводимые числа вещественного.
procedure chek(x:real);
begin
if (x<1) then
writeln('Число ',x,'. Маловато что-то');
end;
var
a,b,c:real;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
c:=a+b;
writeln('Результат',c);
chek(a);
chek(b);
end.
<!DOCTYPE html>
<html>
<head>
<style>
body {
text-align: center;
}
form {
display: inline-block;
width: 40%;
}
label {
display: block;
}
textarea {
width: 100%;
height: 300px;
}
button {
width: 45%;
}
</style>
<script>
function DeShifr()
{
let Text = document.getElementById("shifr").value;
let L = Text.length;
let NeChet = Text.substr(0,L/2+L%2);
let Chet = Text.substr(L/2+L%2,L/2);
let DeShifr = "";
for (let i = 0, c = 0, n = 0; i < L; i++)
{
DeShifr += (i%2?Chet[c++]:NeChet[n++]);
}
document.getElementById("DeShifr").innerHTML = DeShifr;
}
</script>
</head>
<body>
<form>
<label for="shifr">Введите зашифрованный тест сообщения:</label>
<textarea id="shifr"></textarea>
<button type="button" onCLick="DeShifr()">Расшифровать</button>
<div id="DeShifr"></div>
</form>
</body>
</html>
Ответ: номер 4 ( 176)
Объяснение:
22 (количество букв, знаков препинания и пробелов в предложении )
8 бит
Ответ = 22*8 = 176 бит
Program i2;
var
a,b: integer;
begin
readln(a.b);
if (a+b) mod 2=0 then
writeln(a*b)
else
writeln(a/b);
end.