Неблагоприятные последствия использования компьютера для человеческого организма Покажите избежать этого и приведите аргументированный пример. Объяснить, почему. Напишите окончательный отчет надо)
Жил-был Ослик и не было у него друзей, потому что он был психопатом, мизантропом и вообще сыном Ослицы. Долгими осенними вечерами ( а в жизни ослика была только осень) он читал книгу «Химия прочее» и мечтал кого- нибудь победить или просто что бы от него все отъ-сь (менты, участковый психиатр, соседи-слонята и соседи ежата). Однажды ослику приснился сон, что он вовсе не ослик, а просто проекция пятна на плоскости. В то утро ослик проснулся совершенно другим осликом. Мир был наполнен красками и пеньем птиц и солнце светило на маленький столик у кроватки ослика на котором мог бы стоять компьютер, если бы он у ослика был.
Var d:integer; const a=650; b=1; c=1000; begin write('Введите объём видеофайла в мегабайтах: '); readln(d); if d>a then write('Видеофайл не помещается на носитель информации"А"!',#10) else writeln('Памяти хватает для записи на носитель "А"! ',#10); if d>b then write('Видеофайл не помещается на носитель информации"B"!',#10) else writeln('Памяти хватает для записи на носитель "B"! ',#10); if d>c then write('Видеофайл не помещается на данный носитель информации"С"!',#10) else writeln('Памяти хватает для записи на носитель "C"! ',#10); readln; end.
Жил-был Ослик и не было у него друзей, потому что он был психопатом, мизантропом и вообще сыном Ослицы. Долгими осенними вечерами ( а в жизни ослика была только осень) он читал книгу «Химия прочее» и мечтал кого- нибудь победить или просто что бы от него все отъ-сь (менты, участковый психиатр, соседи-слонята и соседи ежата). Однажды ослику приснился сон, что он вовсе не ослик, а просто проекция пятна на плоскости. В то утро ослик проснулся совершенно другим осликом. Мир был наполнен красками и пеньем птиц и солнце светило на маленький столик у кроватки ослика на котором мог бы стоять компьютер, если бы он у ослика был.
d:integer;
const
a=650;
b=1;
c=1000;
begin
write('Введите объём видеофайла в мегабайтах: ');
readln(d);
if d>a then write('Видеофайл не помещается на носитель информации"А"!',#10) else
writeln('Памяти хватает для записи на носитель "А"! ',#10);
if d>b then write('Видеофайл не помещается на носитель информации"B"!',#10) else
writeln('Памяти хватает для записи на носитель "B"! ',#10);
if d>c then write('Видеофайл не помещается на данный носитель информации"С"!',#10) else
writeln('Памяти хватает для записи на носитель "C"! ',#10);
readln;
end.