Дано масив: A[i] 3, 8, 5, 7, 6. Визначте результат виконання фрагмента програми:S := 0; For i := 1 To 5 do S := S+ A[i]; *

program pr; vars,n: string; c: char; i: integer; beginwriteln('введите имя и фамилию в одной строке'); readln (s); i: =1; while s[i]< > ' ' do i: =i+1; n: =copy(s,1,i-1); writeln(n); readln; end.

сумма=18

семерки нету

или тебе программу написать?

var

x: real;

begin

readln(x);

writeln(round(x));

end.

фамилия

                  имя

          отчество