3)0+7=7
4)7+7=14
5)14+7=21
6)21+7=28
7)28+7=35
8)35+7=42
Напишу с объяснением:
n = 3;
s = 0 + 6 = 6;
n = 4;
s = 6 + 8 = 14;
n = 5;
s = 14 + 10 = 24;
n = 6;
s = 24 + 12 = 36;
n = 7
s = 36 + 14 = 50.
Переменная а, в, с, х:целый;
Начало
ввод(а);
с:=0;
для в:=1 до а делать
Начало
ввод(х);
если х>0 тогда начало
с:=с+х;
конец;
вывод("Количество слагаемых: ", в, " Сумма: ", с);
конец.
Uses GraphABC;
begin
line(300,50,300,450);
line(150,250,550,250);
line(300,50,295,60);
line(300,50,305,60);
line(550,250,540,245);
line(550,250,540,255);
<span>end.</span>
Var b,c:integer;
a: array [1..20] of integer; {объявляем массив}
begin
randomize; {говорим что будем использовать в теле программы рандомные числа}
for b:=1 to 15 do begin {жи есть цикл программы который заполняет наш массив от первой ячейки (b) до 15 ячейки }
a[b]:=random(1000); {присваиваем элементам массива рандомные значения}
write(a[b]); {выводим эти значения}
writeln(' <== ',a[b]*2); {рядом выводим точно такой же массив с такими же числами, только умноженными на 2 , а стрелочка для красоты }
end;
<span>end.
надеюсь что так можно? ;D
</span>