Циклы (Pascal)

Назад на содержание

Циклы в Pascal

Общая информация

Оператор for
(циклы с параметром)

Оператор while
(циклы с предусловием)

Оператор repeat
(циклы с постусловием)

Примеры

Котрольные вопросы

Задания

Примеры

Задача 1. Найти среднее арифметическое любых пяти чисел.

var
a:integer; {число}
S:real; {среднеарифм. 5-ти чисел}
i:integer; {счетчик цикла}
BEGIN
S:=0;
for i:=1 to 5 do
  begin
   write('Введите ',i,'-е число ');
   readln(a);
   S:=S+a;
  end;
S:=S/5;
writeln('Среднее арифметическое =',S);
END.

Введите 1-е число
Введите 2-е число
Введите 3-е число
Введите 4-е число
Введите 5-е число
Среднее арифметическое =

На начало страницы