С одной стороны, электронные страницы – это хорошо, меньше вреда наносится окружающей среде, да и хранить большое количество информации легче и удобнее в электронном виде. С другой стороны – человечество становится все более зависимым от техники. Многие даже представить себе не могут, что будут делать, если, например, забудут дома телефон, это приравнивается к трагедии. Велико число тех, кто просто убивает время в социальных сетях, живое общение заменяется набором букв на компьютере, а жесты и мимика – смайликами. Да, это хорошо для тех, кто находится далеко друг от друга, или в силу каких – то других причин просто физически не могут увидеться. Но мы злоупотребляем такими благами, так как, живя по соседству – общаемся посредством сети и устройств. Люди просто перестали ходить в гости и просто видеться. То, насколько мы будем зависимы от компьютера – определяем мы сами. Человек сам определяет, на что тратить время, как проживать жизнь. И если использовать ИТ и другие блага только в полезных целях и в меру – жить станет легче не только нам, но и будущим поколениям, и им не придется страдать от нашей невнимательности и лени.
begin Writeln('Год Запас рыбы,т. Улов,т'); zapas := perv_zapas; for year := 1 to 20 do begin zapas := zapas * (1 + percent / 100); if zapas - plan < 250 then ulov := zapas - 250 else ulov := plan; zapas := zapas - ulov; if ulov >= plan then Writeln(year:2, zapas:10:1, ulov:12:1) else Writeln(year:2, zapas:10:1, ulov:12:1, ' - меньше плана') end end.
Результат выполнения программы: Год Запас рыбы,т. Улов,т 1 950.0 180.0 2 893.5 180.0 3 829.7 180.0 4 757.5 180.0 5 676.0 180.0 6 583.9 180.0 7 479.8 180.0 8 362.1 180.0 9 250.0 159.2 - меньше плана 10 250.0 32.5 - меньше плана 11 250.0 32.5 - меньше плана 12 250.0 32.5 - меньше плана 13 250.0 32.5 - меньше плана 14 250.0 32.5 - меньше плана 15 250.0 32.5 - меньше плана 16 250.0 32.5 - меньше плана 17 250.0 32.5 - меньше плана 18 250.0 32.5 - меньше плана 19 250.0 32.5 - меньше плана 20 250.0 32.5 - меньше плана
Var mas:array[1..1000, 1..1000] of integer; N,M,i,j,k:integer;
Begin Writeln('Введите размер матрицы N*M'); Write('N = '); readln(N); Write('M = '); readln(M);
if (M>1000) or (N>1000) or (M<1) or (N<1) then Writeln('Ошибка, указанные значения выходят за пределы матрицы') else Begin Writeln('Введите элементы матрицы');
k:=0; for i:=1 to N do for j:=1 to M do Begin readln(mas[i,j]); if (mas[i,j] mod 2 = 0) then k:=k+1; end;
Writeln(); Writeln('Исходная матрица');
for i:=1 to N do Begin for j:=1 to M do Begin Write(mas[i,j], ' ') end; Writeln(); end;
Writeln(); Writeln('Количество четных элементов = ',k); end;
С одной стороны, электронные страницы – это хорошо, меньше вреда наносится окружающей среде, да и хранить большое количество информации легче и удобнее в электронном виде. С другой стороны – человечество становится все более зависимым от техники. Многие даже представить себе не могут, что будут делать, если, например, забудут дома телефон, это приравнивается к трагедии. Велико число тех, кто просто убивает время в социальных сетях, живое общение заменяется набором букв на компьютере, а жесты и мимика – смайликами. Да, это хорошо для тех, кто находится далеко друг от друга, или в силу каких – то других причин просто физически не могут увидеться. Но мы злоупотребляем такими благами, так как, живя по соседству – общаемся посредством сети и устройств. Люди просто перестали ходить в гости и просто видеться. То, насколько мы будем зависимы от компьютера – определяем мы сами. Человек сам определяет, на что тратить время, как проживать жизнь. И если использовать ИТ и другие блага только в полезных целях и в меру – жить станет легче не только нам, но и будущим поколениям, и им не придется страдать от нашей невнимательности и лени.
Объяснение: