В наше время интернет приобретает колоссальные масштабы. В первые годы существования сети, в том числе и Wi-Fi, она за считанные дни увеличивалась в десятки раз, сейчас рост тоже продолжается.
Казалось бы, подобные технологии лишь облегчают жизнь человека, что тут может быть плохого? Однако, имея возможность найти нужное в интернете, люди автоматически, сами того не осознавая, перестают полагаться на собственную память, не пытаются напрягать извилины там, где всю работу за тебя может выполнить “поисковик”.
Конечно, полностью вред от беспроводного интернета не доказан, но известно и доказано, что нахождение в квартире, помещении роутер WiFi оказывает влияние на состояние здоровья человека.
Общение между друзьями из долгожданных встреч наяву постепенно превращается в переписку в социальных сетях, выражение эмоций мимикой лица – в различные смайлики и картинки. Кроме того, набирает популярность явление интернет-пиратства, когда создатели фильмов, игр и музыки терпят огромные убытки, потому что их работу незаконно публикуют в открытый доступ в сети. Представьте рок-группу из молодых ребят, долгое время репетировавших и сумевших выпустить свой первый настоящий альбом, песни из которого через пару часов становятся достоянием общественности против их воли. Не думаю, что с таким видом грабительства у талантливых людей усиливается желание выпускать свои творения в свет.
вот 3 варианта решения задачи:
1. с временной целочисленной переменной вместо булеан.
var
a, f : integer;
begin
write('введите число: ');
readln(a);
while a div 10 > 0 do begin
if (a mod 10) >= ((a mod 100) div 10) then f := 1;
a := a div 10;
end;
if f = 0 then writeln('ДА') else writeln('НЕТ');
end.
2. с строчной переменной которой присваивается текст ответа.
var
a : integer;
f : string := 'ДА';
begin
write('введите число: ');
readln(a);
while a div 10 > 0 do begin
if (a mod 10) >= ((a mod 100) div 10) then f := 'НЕТ';
a := a div 10;
end;
writeln(f);
end.
3. без дополнительных переменных но с оператором break.
var
a : integer;
begin
write('введите число: ');
readln(a);
while a div 10 > 0 do begin
if (a mod 10) >= ((a mod 100) div 10) then begin
writeln('НЕТ');
break;
end;
a := a div 10;
if a < 10 then writeln('ДА');
end;
end.