Курсовой информации не бывает
Не совсем красиво но без массивов
var cur_num, prev_num: integer;
Begin
Writeln('Введите последовательность закончив ее нулем');
read(prev_num);
repeat
read(cur_num);
if cur_num * prev_num > 0 then
writeln('Пара = ', cur_num * prev_num);
prev_num := cur_num;
until cur_num = 0;
End.
Долговременная и оперативная это тоже самое!
Просто зайди на сайт, специально ведь нк обрезаю название этого сайта...
Ответ:
15
Объяснение:
У тебя идет цикл от i=1 до i<=5 и параллельно после каждого выполнения цикла i становится на 1 больше
Т.к условие 'до тех пор пока i меньше или не станет равно 5' цикл выполняется
1)i=1
s=0+1=1
2)i=2
s=1+2=3
3)i=3
s=3+3=6
4)i=4
s=6+4=10
5)i=5
s=10+5=15
При достижении i=5 мы выходим из цикла