Составить блок схему :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?

OLEQMOISEEV 27 дек. 2020 г., 01:45:26

A = a - это глупость.

If not(a> ; b) then a : = b ; < ; - так правильнее.

Irinakirikovam 24 мая 2020 г., 05:37:28 | 5 - 9 классы

Program yura ; var x : integer ; begin writeln ('Напишите x') ; readln (x) ; if x mod 2 = 0 then writeln(x * x + (sqrt2)) else writeln(x * x * x + x) end?

Program yura ; var x : integer ; begin writeln ('Напишите x') ; readln (x) ; if x mod 2 = 0 then writeln(x * x + (sqrt2)) else writeln(x * x * x + x) end.

В чём ошибка?

Natalia061 11 мая 2020 г., 02:41:23 | 10 - 11 классы

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

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

Помогите, пожалуйста : Procedure Part_2(n : integer ; Y : vector ; var Sg : real) ; var i, k : integer ; P : real ; Begin P : = 1 ; k : = 0 ; For i : = 2 * n div 3 + 1 to n do If (y[i]< ; > ; 0) then begin P : = P * y[i] ; k : = k + 1 ; end ; If k> ; 0 then If P> ; 0 then Sg : = exp(1 / k * ln(P)) else If odd(k) then Sg : = - exp(1 / k * ln(abs(P))) else Sg : = 0 else Sg : = 0 ; 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.

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 ;

Dascha16 8 апр. 2020 г., 09:25:32 | 10 - 11 классы

Дана рекурсивная функция : function f(n : integer) : integer ; begin if n> ; 100 then f : = n - 10 else f : = f(f(n + 11)) end ; Вычислите f(96)?

Дана рекурсивная функция : function f(n : integer) : integer ; begin if n> ; 100 then f : = n - 10 else f : = f(f(n + 11)) end ; Вычислите f(96).

Tany15 22 мар. 2020 г., 19:31:20 | 10 - 11 классы

Записаны 2 рекурсивные функции, F и G?

Записаны 2 рекурсивные функции, F и G.

Function F(n : integer) : integer ; begin if n> ; 2 then F : = F(n - 1) + G(n - 2) else F : = n ; end ; function G(n : integer) : integer ; begin if n> ; 2 then G : = G(n - 1) + F(n - 2) else G : = n + 1 ; end ;

Чему будет равно значение, вычисленное при выполнении вызова F(6)?

Ряжка 25 дек. 2020 г., 18:21:48 | 5 - 9 классы

Помогите пожалуйста, cрочно?

Помогите пожалуйста, cрочно!

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

Program primer6 ;

uses crt ;

x : integer ;

begin

clrscr ;

readln(x) ;

if x mod 2 = 0 then writeln ('да')

else writeln ('нет')

end.