Задача №137б. Даны натуральное число n, действительные числа a1 ,…, an. Вычислить: a1 ^ 2, a1 * a2, a1 * a3, … , A1 * an;
>Решение Pascal
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | program pr137_2; var n, i, a1, an : integer; begin write('n = '); readln(n); for i := 1 to n do begin write('a',i,' = '); readln(an); if (i = 1) then a1 := an; writeln('a1 * a',i,' = ', a1 * an); end; readln; end. |