Var a:char;
b:real;
begin
writeln( 'Введите месяц и день', a, b);
readln (a,b);
if a='т' then Writeln( 'тяп ', b);
if a='л' then Writeln( 'ляк ',b);
if a='м' then Writeln( 'мяк ',b);
if a='б' then Writeln( 'бяк ',b);
end.
Понятным и несущим новую, неизвестную нам ранее информацию
1024 б / 16 = 64 б 64 б / 4 = 64 / 4 = 16 б - сообщения на одной странице или 16 б * 8 = 128 бит
Алфавит 128 бит / 128 сим = 1 бит для символа.
бит может иметь 2 знач = 0 или 1. Алфавит два символа
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
ReadlnString.ToUpper.Println('')
end.
<u><em>Тестовое решение:</em></u>
Это тестовая строчка
ЭТО ТЕСТОВАЯ СТРОЧКА
Var a:integer;
Begin
read(a);
If a>10 then a:= a div 10
else a:= a+1;
writeln(a);
end.