//Pascal ABC.NET v3.1 сборка 1219
Var
a,b,c:integer;
begin
read(a,b,c);
if a+b+c=180 then writeln('Possible') else writeln('Unpossible');
end.
Пример ввода:
100
40
40
Пример вывода:
Possible
Информационный объем текста складывается из информационных весов составляющих его символов, Например, следующий текст, записанный с помощью двоичного алфавита:1101001011000101110010101101000111010010<span>содержит 40 символов, следовательно, его информационный объем равен 40 битам.
Т.е. (48*20*60)*2 = 115200 бит = </span>0,014 Мб<span>
</span>1 Мегабайт (Мб) = 1024 Килобайт (Кб) * 8 192 = 8 388 608 бит
<span>1 Килобайт (Кб) = 1024 Байт * 8 = 8 192 бит </span>
<span>1 Байт = 8 Бит</span>
Вот в таком виде работает, чуть поправил список
в операторах writeln
program example;
var
t,n:integer;
begin
n:=1;
t:=3;
writeln('t','n':6);
while t<26 do
begin
n:=n+2;
writeln(t,n:6);
t:=t+3
end
end.
t n
3 3
6 5
9 7
12 9
15 11
18 13
21 15
24 17
Ответ:
У меня жосткий волос синие глаза я сильный и я высокий.
Код и результаты работы на скриншоте. Если я правильно понял, надо посчитать количество людей родившемся в том или ином дне месяца, игнорируя первые числа. Что относительно выводов то вероятность родиться в какой-либо день меньше 31 примерно одинакова. 31 числа - примерно в 2 раза меньше, потому что такой день есть примерно в половине месяцев. Получается, вроде бы, дискретное равномерное распределение. На картинках выглядит похоже.