Var s:string; i,sum:integer; // Объявление переменных begin // Начинаем программу writeln('Vvedite chislo'); // Вывод текста readln(s); // Ввод текста sum:=0; // Присваиваем переменной sum значение 0 чтобы при вводе текста отличного от 0, программа выводила правильный результат то есть 0. for i:=1 to length(s) do if s[i]='0' then sum:=sum+1; // Запускаем счетчик с 1 до length(s) что значит эта команда, она считает сколько в тексте символов. И проверяем с 1 символа до length(s) совпадает ли символ со значением 0, если совпадает то прибавляем 1. writeln(sum); // Вывод суммы end. // Конец программы
Здравствуйте сегодня мы разберем правила работы с интернетом. Интернет это большая сеть которая покрывает весь мир. Бывают много видов интернета начиная с Wi-Fi, Enthernet заканчивая VPN Моб.данные и другие. Сначала давайте разберем что такое интернет и зачем он нам нужен.
Интернет-Сеть покрывшая землю и подсоеденненвя уже почти к каждому гаджету с разных сервисов самые популярные WiFi и Enthernet интернет придназначен для того чтобы делиться информацией по этой сети интернета с одного компьютеоа на другой с малейщими задержками ( ping m/s).Преступим к правилам!
1. Не разглашай свои пароли от соц.сетей и от другиз сервисов.
2.Бужь осторожен не заходи на странные неизвемтные сайты по крайней мере будь защищен антивирусом хоть они и в некоторых случаях не являются защитой!
3. Не скачивай игры,софты,приложения с пиратских сайтов многие из них захватывают с собрй пару не нужных приложений а также вирусы (браузерные)
4. Если ты увидишь подозрительную рекламу в интернете не жми это возможно мошенники
5. Не разговаривай с посторонними
6. Также не разглашай данные банк.карточки на посторонних сайтов и не говори пин код карты! Его никто не имеет право спросить!
На этом все желаю вам чтобы вы не попадались на уловки мошенников. УДАЧИ!
i,sum:integer; // Объявление переменных
begin // Начинаем программу
writeln('Vvedite chislo'); // Вывод текста
readln(s); // Ввод текста
sum:=0; // Присваиваем переменной sum значение 0 чтобы при вводе текста отличного от 0, программа выводила правильный результат то есть 0.
for i:=1 to length(s) do if s[i]='0' then sum:=sum+1; // Запускаем счетчик с 1 до length(s) что значит эта команда, она считает сколько в тексте символов. И проверяем с 1 символа до length(s) совпадает ли символ со значением 0, если совпадает то прибавляем 1.
writeln(sum); // Вывод суммы
end. // Конец программы
Здравствуйте сегодня мы разберем правила работы с интернетом. Интернет это большая сеть которая покрывает весь мир. Бывают много видов интернета начиная с Wi-Fi, Enthernet заканчивая VPN Моб.данные и другие. Сначала давайте разберем что такое интернет и зачем он нам нужен.
Интернет-Сеть покрывшая землю и подсоеденненвя уже почти к каждому гаджету с разных сервисов самые популярные WiFi и Enthernet интернет придназначен для того чтобы делиться информацией по этой сети интернета с одного компьютеоа на другой с малейщими задержками ( ping m/s).Преступим к правилам!
1. Не разглашай свои пароли от соц.сетей и от другиз сервисов.
2.Бужь осторожен не заходи на странные неизвемтные сайты по крайней мере будь защищен антивирусом хоть они и в некоторых случаях не являются защитой!
3. Не скачивай игры,софты,приложения с пиратских сайтов многие из них захватывают с собрй пару не нужных приложений а также вирусы (браузерные)
4. Если ты увидишь подозрительную рекламу в интернете не жми это возможно мошенники
5. Не разговаривай с посторонними
6. Также не разглашай данные банк.карточки на посторонних сайтов и не говори пин код карты! Его никто не имеет право спросить!
На этом все желаю вам чтобы вы не попадались на уловки мошенников. УДАЧИ!