<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
Writeln((ReadInteger.ToString.Where(t->t='9')).Count=1)
end.
<u>Примеры</u>
35423
False
13290192
False
132903
True
137 (8сс)=1 011 111 (2сс) ( 3 (8cc) =011 (2cc) !!! по триадам!!! )
1 3 7
5D (16сс) = 101 1101 (2сс)
5 D
101 1101 < 101 1111
5D (16cc) < 137 (8cc)
Тю. Просто жмешь Ctrl Alt Del. Комп перезапустится без этой ошибки
Program fdg;
uses crt;
var a:char b:integer;
Begin
clrscr;
writeln('Введите марку топлива латиницей');
readln(a);
writeln('Введите сколько литров вам нужно бензина этой марки ');
readln(b);
If a=ae
64 гб=68719.4765 мб, стандартный объем дискеты 1.44мб, значит 68719.4765/1.44= 47721 дискет