1. Актуальная: Экологическая обстановка в мире с каждым днём ухудшается.
2. Неактуальная: Чтобы добыть огонь, нужно стукать камушек о камушек.
3. Достоверная: Силы, с которыми тела действуют друг на друга, равны по модулю и противоположны по направлению (информация из учебника).
4. Недостоверная: Люська из пятого подъезда ведёт разгульный образ жизни (слова соседки-сплетницы).
5. Объективная: Часы показывают 17 часов 50 минут.
6. Необъективная: Сейчас вечер.
7. Полная: Красный свет - стой, жёлтый - приготовься, зелёный - иди.
8. Неполная: Красный свет - стой, зелёный - иди (для трёхцветного светофора)
9. Полезная: Не сутулься, а то рано состаришься!
10. Бесполезная: В соседней деревне нет ни одного Олега.
11. Понятная: Два плюс два равно четыре.
12. Непонятная: жык лопр дыв мыг
GraphABC;
var
i: word; //Было предпочтительнее использовать byte,
//ведь от 3 до 7 считаем, но тип word старее,
//а к byte могут придраться
begin
SetBrushColor(clBlue); //Проставляем цвет кисти, я не
//нашёл функции рисования круга,
//где можно было бы указать цвет
for i := 3 to 7 do
begin
FillCircle(200, 200, 10 * i); //Рисуем круг, радиус от 30 до 70
sleep(500); //Поскольку круги в конечном счёте всё равно
//затираются более большими, будем выводить
//с задержкой
end;
end.