Определите, какое число будет напечатано в результате выполнения следующего алгоритма : var a, b, t, N, P : integer ; Function F(x : integer) : integer ; begin F : = 16 * (9 - x) * (9 - x) + 127 ; end?

ШЕРИ 24 дек. 2020 г., 05:33:07

Нучтобыопределитьчисло, можнопростоэтупрограммузапуститьв Паскале.

50.

Koteika246 24 дек. 2020 г., 05:33:11

Я запустил и вывело 50.

174987654321 2 дек. 2020 г., 15:46:27 | 5 - 9 классы

Var k, s : integer ; begin s : = 0 ; k : = 1 ; while k < ; 11 do begin s : = s + k ; k : = k + 1 ; end ; write(s) ; end?

Var k, s : integer ; begin s : = 0 ; k : = 1 ; while k < ; 11 do begin s : = s + k ; k : = k + 1 ; end ; write(s) ; end.

Определите, что будет напечатано в результате работы следующего фрагмента программы :

Gribaneva 19 февр. 2020 г., 20:46:42 | 10 - 11 классы

Определите, какое число будет напечатано в результате выполнения следующего алгоритма : var a, b, t, M, R : integer ; Function F(x : integer) : integer ; begin F : = 3 * (x - 8) * (x - 8) end ; begin ?

Определите, какое число будет напечатано в результате выполнения следующего алгоритма : var a, b, t, M, R : integer ; Function F(x : integer) : integer ; begin F : = 3 * (x - 8) * (x - 8) end ; begin a : = - 20 ; b : = 20 ; M : = a ; R : = F(a) ; for t : = a to b do begin if (F(t) < ; R) then begin M : = t ; R : = F(t) end end ; write(M) ; end.

Йчуметнлщдшщгапм5689 22 авг. 2020 г., 00:02:41 | 5 - 9 классы

Найдите значение переменной А после выполнения программы VAR A : INTEGER BEGIN A : = SQRT(16) : END?

Найдите значение переменной А после выполнения программы VAR A : INTEGER BEGIN A : = SQRT(16) : END.

Fmilantosss 29 окт. 2020 г., 10:18:07 | 5 - 9 классы

1) Определите, какое число будет напечатано в результате выполнения следующего алгоритма : var a, b, t, N : integer ; Function F(x : integer) : integer ; begin F : = 16 * (6 - x) * (6 - x) - 450 ; end?

1) Определите, какое число будет напечатано в результате выполнения следующего алгоритма : var a, b, t, N : integer ; Function F(x : integer) : integer ; begin F : = 16 * (6 - x) * (6 - x) - 450 ; end ; BEGIN a : = - 20 ; b : = 20 ; N : = 0 ; for t : = - 20 to 20 do begin if (F(t) > ; = 0) then begin N : = N + 1 ; end ; end ; write(N) ; Нужен не просто ответ, а объяснить как нашли!

Очень прошу, срочно нужно скоро ЕГЭ сдавать(.

TasyaSnow 22 дек. 2020 г., 12:59:22 | 5 - 9 классы

Укажите результат выполнения программы var a, b : integer procedure proc(var a : integer ; b : integer) begin b : = 4 ; a : = 6 ; b : = a + b ; end ; begin a : = 2 ; b : = 3 ; proc(a, b) ; writeln(a, ?

Укажите результат выполнения программы var a, b : integer procedure proc(var a : integer ; b : integer) begin b : = 4 ; a : = 6 ; b : = a + b ; end ; begin a : = 2 ; b : = 3 ; proc(a, b) ; writeln(a, ' ', b) ; end.

Make96th 18 янв. 2020 г., 03:04:39 | 10 - 11 классы

USES Crt ; const N = 10 ; VAR A : array[1?

USES Crt ; const N = 10 ; VAR A : array[1.

N] of integer ; k : integer ; Function FUN : integer ; Var i, M : integer ; Begin writeln('Введите число M = ') ; readln(M) ; k : = 0 ; for i : = 1 to N do if A[i] FUN : = k ; End ; Procedure SOSTMAS ; Var i : integer ; Begin for i : = 1 to N do begin A[i] : = Random(199) - 100 ; write(A[i] : 5) ; end ; Writeln ; end ; BEGIN SOSTMAS ; Writeln(FUN) ; что то неправильно говорят массив.

Spasibo123 5 февр. 2020 г., 18:45:06 | 10 - 11 классы

Что напечатает данная программа : Var x : = Integer Begin x : = 2 WriteLn('x + 1 = ', x) End?

Что напечатает данная программа : Var x : = Integer Begin x : = 2 WriteLn('x + 1 = ', x) End.

AnettaG21 29 мая 2020 г., 04:53:33 | 5 - 9 классы

Определите, что будет напечатано в результате работы следующего фрагмента программы : Var k, s : integer ; begin s : = 0 ; k : = 0 ; while k< ; 30 do begin k : = k + 3 ; s : = s + k ; end ; write(s)?

Определите, что будет напечатано в результате работы следующего фрагмента программы : Var k, s : integer ; begin s : = 0 ; k : = 0 ; while k< ; 30 do begin k : = k + 3 ; s : = s + k ; end ; write(s) ; end.

Treio 28 авг. 2020 г., 11:10:47 | 10 - 11 классы

Помогите решить, пожалуйста) var a, b, t, M, R : integer ; Function F(x : integer) : integer ; begin F : = 9 * (x + 19) * (x - 19) + 1 ; end ; begin a : = - 20 ; b : = 20 ; M : = a ; R : = F(a) ; for ?

Помогите решить, пожалуйста) var a, b, t, M, R : integer ; Function F(x : integer) : integer ; begin F : = 9 * (x + 19) * (x - 19) + 1 ; end ; begin a : = - 20 ; b : = 20 ; M : = a ; R : = F(a) ; for t : = a to b do begin if (F(t) < ; R ) then begin M : = t ; R : = F(t) end end ; write(M) ; end.

Danil77728423 29 дек. 2020 г., 17:26:17 | 10 - 11 классы

Помогите срочно решить следующую задачу(оформить с пояснениями)?

Помогите срочно решить следующую задачу(оформить с пояснениями).

Задача : определите при каком наименьшем значении b в результате выполнения следующего алгоритма будет напечатано число 100 var a, b, t, k : integer ; function F(x : integer) : integer ; begin if x mod 2 = 0 then F : = 1 ; else F : = 0 ; end ; BEGIN a : = 100 ; readln(b) ; k : = 0 ; for t : = a to b do begin k : = k = F(t) ; end ; write(k) ; END.