Var s : string;
i : integer;
begin
readln(s);
for i := 1 to length(s) do writeln(s[i]);
end.
1.Не употреблять пищу, находясь за компьютером.
2.Перед использованием компьютера мыть руки, чтобы не загрязнять клавиатуру и мышь.
3.Не трогать пальцами монитор
4.Не выдергивать из компьютера какие-либо шнуры во время его работы.
5.Не выключать компьютер с помощью кнопки, выдергивания шнура питания.
6.Выключать компьютер только через "пуск"-"завершение работы".
7.Находиться на расстоянии 20-30см от монитора.
8.Не делать резких движений при работе с компьютером.
9.Держать свое рабочее место в чистоте и порядке.
10.Переодически очищать компьютер от загрязнений специальными влажными салфетками.
12.Не изменять настройки, не зная результата
13.Не работать за компьютером одновременно более чем одному человеку.
14.При долгой работе с компьютером делать зарядку для глаз и тела
15.Не работать за компьютером более 3 часов в день за избежание вреда для здоровья.
Входы для информации: - гнезда (разъёмы для перефирии)- CD-DVD-привод- Дискетки- Сканирование через принтер- Ввод с клавиатуры, клик мышкой на опр. знаках- запись с микрофона- из интернета Выходы:- Гнёзда для перефирии- печать- в интернет- монитора<span> т.д. </span>
Известна сторона равностороннего треугольника найти высоту и площадь этого треугольника, в QBasic