Посмотри точно ли ты записал(а) цифры
каждая буква кодируется 8 цифрами из 0 и 1
var
num: integer;
has2: boolean;
begin
has2 := false;
read(num);
while (num <> 0) do
begin
if (num mod 10 = 2) then has2 := True;
num := num div 10;
end;
writeln(has2);
end.
2000 кб= 2 048 000б
2 048 000б ÷ 1024000 б/с= 2 сек (сек сокращяются)
<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(Trunc(Power(55000,1/3)))
end.
<u>Результат</u>
38