var
a,b,c: integer;
begin
readln(a,b,c);
writeln(a+b+c)
end.
Var x:integer;
begin
for x:=5 to 14 do begin
x:=x*(x+1)
end;
end.
PASCAL не уверен что работает но смысл такой
//Pascal ABC.NET v3.1 сборка 1172
Var
c:char;
begin
readln(c);
if ((c>='a') and (c<='z')) or ((c>='A') and (c<='Z')) or ((c>='А') and (c<='п')) or ((c>='p') and (c<='ё')) then writeln('Буква') else writeln('Символ');
end.
Пример ввода:
ю
Пример вывода:
Буква
16 * 32 = 2^4 * 2^5 = 2^9
9 бит для кодировки одного места в зрительном зале.
Ответ : 9 бит
По стандарту 1 символ = 1 байт (включая пробелы), отсюда имеем
1. <span>1 сентября — День знаний = 24 байта (20 букв и 4 пробела = 24)
2. </span><span>Здравствуй, школа! = 18 байт (15 букв, 1 пробел, 1 запятая и 1 восклицательный знак)</span>