Программа. Вычислительная циклическая программа

Задача.

Вычислительная циклическая программа.

Элементарная техника программирования.

Программа.

Задача 17.

Написать программу с использованием оператора For, которая печатает на экране:

Прямой счёт:-4 –3 –2 –1 0 1 2 3 4 Обратный счёт:4 3 2 1 0 –1 –2 –3 –4 Конец счёта.

Var i:Integer;

BEGIN

Write('Прямой счёт:');

For i:=-4 to 4 do Write(i,' ');

Write('Обратный счёт:');

For i:=4 to -4 downto Write(i,' ');

Write('Конец счёта.');

ReadLn;

END.

Во дворце N залов. Известны длина и ширина каждого зала. Вычислить площадь пола каждого зала.

Var i,dlina,shirina,N,S:Integer;

BEGIN

WriteLn('Введите число залов');

ReadLn(N);

For i:=1 to N do begin

WriteLn('Ведите длину и ширину зала');

ReadLn(dlina,shirina);

S:= dlina*shirina;

WriteLn('Площадь пола=',S)

end

END.

Счётчики.

Счётчик – это переменна я величина, в которой что–нибудь подсчитывается.