999999
Я не знаю точно это или нет.
1)
var
a:integer;
begin
writeln('Введите число: ');
readln(a);
Writeln(n div 10 - n mod 10)
end.
2)
var
a:real;
begin
writeln('Площадь в ар.: ');
Read(a);
Writeln('Кв,км: ',Trunc(a/10000))
end.
Три основных правила безопасности в соц.сетях.
1.Знать всё про мошеничество:лотереи и конкурсы онлайн;финансовые пирамиды;спам;фальшивые программы с вирусами.
2.Защитить свою информацию:придумывать сложные пароли;использовать как минимум 2 электронных адреса-один для переписки с друзьями,второй для регистрации на сайтах,форумах, в соц.сетях.Второй адрес должен быть сложным для запоминания и воспроизведения.
3.Использовать дополнительные системы безопасности.На рынке новых технологий имеется немало программ и систем, призванных
обеспечить безопасность пользователя сети, а также его компьютера,
мобильного устройства. Подобными утилитами обязательно нужно
пользоваться.
Выведет 128;
1 2 4 8 16 32 64 128