Вычислить среднегеометрическое значение каждых вторых элементов последней трети массива” Код программы есть, нужно только указать, чтобы она выбирала каждый второй элемент?

Dianamkn 11 мая 2020 г., 02:41:26

Просто вместо for i : = n div3 + 1 to n do пиши так

сначала перед i : = n div 3 + 2 ;

после вот так

while i< ; = n do

begin

всё что было внутри for

i : = i + 2 ;

end ;

.

(остальной код).

MikaEpt 27 апр. 2020 г., 10:34:15 | 5 - 9 классы

ЧТО НЕ ПРАВИЛЬНО?

ЧТО НЕ ПРАВИЛЬНО?

Program p_1 ;

var x, y : real ;

begin

read(x) ;

if 0< ; x< ; 2 then begin y : = sqr(cos(x)) ;

else begin y : = 1 - sin(sqr(x)) ;

end ;

writeln(y) ;

end.

Viktoriapusch 15 июл. 2020 г., 07:37:36 | 10 - 11 классы

Program lab1 ; varx, y : real ; begin writeln('введите x') ; readln(x) ; begin if (abs(x)< ; = 1) then y : = sqr(x) - 1 ; else if(abs(x)> ; 1) and (abs(x)< ; = 2) then y : = 2 * x - 1 ; else if ?

Program lab1 ; var

x, y : real ; begin writeln('введите x') ; readln(x) ; begin if (abs(x)< ; = 1) then y : = sqr(x) - 1 ; else if(abs(x)> ; 1) and (abs(x)< ; = 2) then y : = 2 * x - 1 ; else if (abs(x)> ; 2) then y : = exp(5 * ln(x)) - 1 ; end ; writeln ('y = ', y) ; End.

Где ошибка в программе?

Пишет : : Встречено 'else', а ожидался оператор.

Нужно найти у, при определенных значениях х.

Umnica1 27 дек. 2020 г., 01:45:22 | 5 - 9 классы

Составить блок схему :var a, b, c : integer ;Beginread(a, b, c) ; if (a> ; b) then a : = a else a : = b ;if (a> ; c) then a : = a else a : = c ;writeln(a) ;End?

Составить блок схему :

var a, b, c : integer ;

Begin

read(a, b, c) ; if (a> ; b) then a : = a else a : = b ;

if (a> ; c) then a : = a else a : = c ;

writeln(a) ;

End.

Оорр1 6 мар. 2020 г., 00:18:39 | 5 - 9 классы

Program mimi ;var a, b : integer ;beginreadln (a) ;if 99 < ; a < ; thenwriteln('Неверно')elseif a> ; 999 thenwriteln('Неверно')elsewriten('Верно')end?

Program mimi ;

var a, b : integer ;

begin

readln (a) ;

if 99 < ; a < ; then

writeln('Неверно')

else

if a> ; 999 then

writeln('Неверно')

else

writen('Верно')

end.

Выдаёт : pas(5) : Ожидался идентификатор

Что не так?

MrFrAnKiNsHtAiN 14 апр. 2020 г., 19:06:15 | 10 - 11 классы

По тексту программы определите условие задачи var i, x, s, k, n : integer ; begin s : = 0 ; k : = 0 ; readln(n) ; for i : = 1 to n do begin read(x) ; if x> ; 0 then begin S : = s + x ; k : = k + 1 ?

По тексту программы определите условие задачи var i, x, s, k, n : integer ; begin s : = 0 ; k : = 0 ; readln(n) ; for i : = 1 to n do begin read(x) ; if x> ; 0 then begin S : = s + x ; k : = k + 1 ; end ; end ; if k : = 0 then writeln(s) else writeln(s / k : 4 : 2) ; end.

Sonyatoropchina 24 мар. 2020 г., 12:41:52 | 10 - 11 классы

Исправить ошибку Помогите исправить ошибку в программе Вот задание : Разработать программу поиска и печати всех чисел - близнецов, принадлежащих заданному диапазону [N, M ]?

Исправить ошибку Помогите исправить ошибку в программе Вот задание : Разработать программу поиска и печати всех чисел - близнецов, принадлежащих заданному диапазону [N, M ].

Вот программа : program yyy ; function prost(var x : integer) : boolean ; var k, i : integer ; t : boolean ; begin t : = true ; k : = 0 ; for i : = 1 to x do begin if x mod i = 0 then k : = k + 1 ; end ; if k = 2 then t : = true else t : = false ; prost : = t end ; var n, m, i : integer ; begin writeln('1') ; readln(n) ; writeln('2') ; readln(m) ; for i : = n to m - 1 do begin if prost(i) and prost(i + 2) then writeln(i , (i + 2)) ; end ; end.

NELLYASX 9 июл. 2020 г., 15:08:30 | 10 - 11 классы

Помогите в Паскале изменить текст программы так, чтобы выводила не только индекс элемента, но и его значение var a : array[1?

Помогите в Паскале изменить текст программы так, чтобы выводила не только индекс элемента, но и его значение var a : array[1.

10]of integer ; i, k, n : integer ; begin n : = 0 ; k : = 0 ; Writeln('Исходный массив : ') ; Randomize ; for i : = 1 to 10 do begin a[i] : = Random(51) - 25 ; Write(a[i], ' ') ; end ; Writeln ; for i : = 10 downto 1 do if a[i]> ; 0 then begin k : = k + 1 ; if k = 2 then n : = i ; end ; if k = 0 then Writeln('В массиве нет положительных элементов!

') else Writeln('Номер предпоследнего положительного элемента : ', n) ; Readln ; end.

Sonayxolod 4 апр. 2020 г., 00:00:20 | 10 - 11 классы

Можете объяснить за что отвечает xsearch?

Можете объяснить за что отвечает xsearch?

Program c4 ; var n : integer ; x, y : integer ; xmin, xmax : integer ; xsearch : boolean ; ymin, ymax : integer ; i : integer ; s : real ; begin xsearch : = true ; xmin : = 0 ; xmax : = 0 ; ymin : = 0 ; ymax : = 0 ; readln(n) ; for i : = 1 to n do begin readln(x, y) ; if y = 0 then begin if xsearch or (xif xsearch or (x> ; xmax) then xmax : = x ; xsearch : = false ; end else if yelse if y> ; ymax then ymax : = y end ; if (xmax> ; xmin) and (ymin< ; 0) and (ymax> ; 0) then s : = (xmax - xmin) * (ymax - ymin) / 2 else s : = 0 ; writeln(s) ; end.

AvEnTaDoR005 25 сент. 2020 г., 12:43:18 | 5 - 9 классы

Program TELESHOP ; var x : real ; begin writeln ('?

Program TELESHOP ; var x : real ; begin writeln ('.

') ; write ('.

') ; write ('.

') ; readln (x) ; if x< ; = 1 then begin if x = 1 then begin writeln ('.

') ; writeln ('.

') ; end else begin writeln ('.

') ; end ; * else begin writeln ('.

') ; end end.

* - место ошибки.

"встречено 'else', а ожидалось оператор" Вопрос : в чем ошибка?

Ksusha1037 25 июн. 2020 г., 21:03:03 | 5 - 9 классы

Здравствуйте, помогите пожалуйста найти ошибку program name ; uses crt ; var a : integer ; begin writeln ('Введите время = ') ; readln (a) ; if (a)then ; begin writeln ('ночь') ; end ; / / / if a = 3 ?

Здравствуйте, помогите пожалуйста найти ошибку program name ; uses crt ; var a : integer ; begin writeln ('Введите время = ') ; readln (a) ; if (a)then ; begin writeln ('ночь') ; end ; / / / if a = 3 then begin writeln ('утро') ; readln (d) ; if a = 12 then begin writeln ('день') ; end ; if a = 16 then begin writeln ('вечер') ; / / / if a = 21 then begin writeln ('ночь') ; / / / end ; end ;