Регистрация
yernur2207
05.08.2021 15:42
Информатика
Есть ответ 👍

Написать программу в паскале для 6 элементов, где каждый элемент увеличить в 2 раза

192
302
Посмотреть ответы 2

Ответы на вопрос:

liusen
liusen
4,5(82 оценок)

program n_1;

uses math;

var a: array [1..6] of integer; i: integer;

begin

    for i: =1 to 6 do begin read (a[i]); a[i]: =a[i]*2; end;

    writeln;

    for i: =1 to 6 do write(a[i], ' ');

end.

Математика666
Математика666
4,4(87 оценок)

1)

 

var n, i, s: integer; begin s : = 0; readln(n); if n mod 2 = 0 then n : = n div 2 -1 else n : = n div 2; for i : = 0 to n do begin s : = s + (1+2*i) end; write(s) end.

 

2)

 

var a, s: integer; begin s : = 0; read(a); while (a > = 0) do begin s : = s + a; read(a) end; writeln; write(s) end.

 

 

var a, s: integer; begin s : = 0; a : = 0; repeat s : = s + a; read(a) until a < 0; writeln; write(s) end.

 

 

Популярно: Информатика