program Cikle;
uses crt;
var a,b,i,k:integer;
Begin
clrscr;
write('Введите А: '); readln(a);
<span>write('Введите B: '); readln(b);
</span>if a>b then begin i:=a; a:=b; b:=i end;
{_______________________________________}
{1 способ реализации - цикл for}
k:=0;
for i:=a to и do k:=k+i;
{_______________________________________}
{2 способ реализации - цикл с предусловием while}
k:=0;
while a<=b do begin
k:=k+a;
a:=a+1 end;
{_______________________________________}
{3 способ - цикл с постусловием repeat}
k:=0;
repeat
k:=k+a;
a:=a+1;
until a>b;
{_______________________________________}
{Окончание программы одинаковое для всех способов}
Writeln('Сумма элементов в интервале [A;B] равна ', k)
readln
End.

0 0

4 года назад

Найти 7-й элемент и посчитать сумму первых 7 элементов ряда: 3, 9, 27 по паскалю

Твоя Сашуля

Так сами ряды то где?

0 0

4 года назад

Определите, кто играет роль управляющего и кто (или что) играет роль объекта управления в следующих системах: школа, класс, само

Серьга

Школа: Директор - управляющий, учителя и дети - объект управления.
Класс: Учитель -управляющий, ученики - объект управления.
Самолет: Экипаж - управляющие,а пассажиры - объект управления.
Стая волков: вожак стаи - управляющий, все остальные волки - объект управления.
Стадо коров: пастух - управляющий, коровы - объект управления.

0 0

4 года назад