2

Program one;

Uses crt;

var

X,s: real;

Begin

Clrscr;

x:=0;

Writeln (‘сторона площадь’);

Repeat {начало цикла}

s:=x*x; {тело цикла}

Writeln (X, ‘ ‘, s);

x:=x+3; {изменение параметра цикла с шагом 3}

until x<=15 {проверка цикла на окончание}

end.

.Блок-схема: 3. Программа:

Билет № 17

1. Глобальная сеть Интернет и ее информационные ресурсы (электрон­ная почта, доски объявлений, телеконференции, поисковые системы и т.д.). Этические и правовые нормы работы с информацией.

2. Практическое задание. Создание мультимедийной презентации ответа на первый вопрос. Выбор типа разметки слайда, применение шаблона оформления, цветовых схем и эффектов анимации. Демонстрация слайдов с использованием управляющих кнопок.