Постройте трассировочную таблицу (Паскаль) var i, n, m : integer ; begin write('введите любое натуральное число : ') ; readln(n) ; for i : = 1 to n do begin m : = m + i ; end ; writeln('сумма всех нат?

Afrоdita 14 февр. 2020 г., 19:07:11

Таблица в приложении = = = = = = = =.

Komarik21 24 июл. 2020 г., 19:43:53 | 10 - 11 классы

Где ошибка?

Где ошибка?

Const n = 10 ; type TMas = array[1.

N] of integer ; var mas1 : TMas ; procedure ImputMas1(var masTMas : integer) ; var i : integer ; begin for i : = 1 to 10 do begin mas1[i] : = random(n) ; Write(mas1[i] : 3) ; end ; end.

Кувджулия 29 сент. 2020 г., 23:58:54 | 10 - 11 классы

Что озночают эти строки (Паскаль) : const n = 8 ; Type is = array [1?

Что озночают эти строки (Паскаль) : const n = 8 ; Type is = array [1.

N] of integer ; var a : is ; begin .

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.

Yor1356051 13 июл. 2020 г., 23:36:45 | 5 - 9 классы

Составьте на языке Паскаль программу вычисления суммы всех натуральных чисел, не превышающих заданного натурального числа N?

Составьте на языке Паскаль программу вычисления суммы всех натуральных чисел, не превышающих заданного натурального числа N.

Построить трассировочную таблицу.

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

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

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

Vadeeme798 20 апр. 2020 г., 06:39:09 | 5 - 9 классы

Вычислить сумму 10 натуральных чисел, вводимых с клавиатуры?

Вычислить сумму 10 натуральных чисел, вводимых с клавиатуры.

Program Demofor1 ;

Var S, P, I : integer ; Begin

For I : = .

To . doBeginWriteln (‘Введите число’) ;

(P) ; S : = S + .

;

End ;

Writeln (‘ Сумма равна’, .

) ;

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) ; что то неправильно говорят массив.

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.

EKATERLINS 24 дек. 2020 г., 05:33:05 | 5 - 9 классы

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

Определите, какое число будет напечатано в результате выполнения следующего алгоритма : var a, b, t, N, P : integer ; Function F(x : integer) : integer ; begin F : = 16 * (9 - x) * (9 - x) + 127 ; end ; BEGIN a : = - 25 ; b : = 25 ; P : = 130 ; N : = 0 ; for t : = a to b do begin if (F(t) > ; P) then begin N : = N + 1 ; end ; end ; write(N) ; END.

Bk25 19 окт. 2020 г., 06:46:31 | 5 - 9 классы

Определить s : 1) Var s, k : integer ; Begin s : = 0 ; for k : = 14 to 18 do s : = s + 7 ; writeln(s) ; End?

Определить s : 1) Var s, k : integer ; Begin s : = 0 ; for k : = 14 to 18 do s : = s + 7 ; writeln(s) ; End.

2) Var s, k : integer ; Begin s : = 0 ; for k : = 1 to 11 do s : = s + 12 ; write(s) ; End.

3) var s, k : integer ; begin s : = 100 ; for k : = 0 to 10 do s : = s - 5 ; writeln (s) ; end.