Информацию можно потерять к примеру забыть или записать на листок а потом выкинуть листок удалить информацию с копютера
Var i:integer; s:real;
begin
i:=1; s:=0;
while i<10 do
begin
i:=i+1;
s:=s+i/(i+1);
end;
writeln('s = ',s:6:4);
end.
Результат:
<span>s = 7.4801</span>
16*32*25*16=204 800
если еще нужно перевести в Кбайт, то 204 800/1024/8=25 Кбайт
Функция
360 Total Security
Облачная защита
+
+
—Исправление системы
+
——Песочница
+
+
—Безопасные покупки в Интернете
+
——Защита веб-камеры
+
——Защита от кейлоггеров
+
+ (**)
+ (**)
Менеджер паролей
——+
Защита съемных носителей
+
+
+
Брандмауэр
+
——Защита реестра
+
——Поведенческая блокировка
+
——Исправление уязвимостей
+
——Проверка безопасности Wi-Fi
+
——Очистка временных файлов
+
——Оптимизация системы
+
——Защита браузера
+
+ (*)
+
Блокировка отслеживания через браузер
—+ (*)
Безопасный просмотр
—+ (*)
—Сравнение цен
—
1. Переменные n1,n2,n3 — для цифр числа
2. Переменная number — для числа
3. Переменная res — для True или False
var
number, n1, n2, n3 : integer; // объявляем
res : boolean; // переменные
begin
write('Введите трехзначное число : ');
readln(number); //
просим пользователя ввести число
readln; // чтобы программа не закрывалась end<span>.</span>