Var
a,b :integer;
Begin
Read(a,b);
Writeln(a div b);
end.
log2(16) = 4 бита на букву.
4 * 1024 = 4096 (2 ^ 12) битов = 512 (2 ^ 9) байтов = 0,512 килобайта.
Изначально a=9 , b=10.
1) "a" меньше 22, "a" не больше "b" => "a"= a+1 = 10
2) "a" меньше 22, "a" не больше "b" => "a"= a+1 = 11
3) "a" меньше 22, "a" больше "b" => "a"= a*2 = 22
4) "a" меньше 22, "a" больше "b" => "a"= a*2 = 44
5) "a" больше 22, вывод a и b.
<em>Ответ:</em> переменная "а" примет значение 44, "b" = 10.
var c: char;
vowels: set of char:=['a', 'e', 'i', 'o', 'u', 'y'];
begin
write('Введите символ: ');
readln(c);
if c in vowels then
writeln(c, ' — гласная')
else
writeln(c, ' — согласная');
end.
Он построил модель мира с целью познания.