Какое число было введено в данной программе, если результатом исполнения является число 100?

Angelinadudko22 12 июн. 2020 г., 20:35:20

Результатом исполнения данной программы не может быть число 100, так как эта программа содержит ошибку.

Массив здесь описан

var a : array [1.

8] of integer ;

При выполнении цикла

for i : = 1 to 8 doa [i] : = a [i - 1] + 3 ;

на первом шаге должна быть выполнена команда a[1] : = a[0] + 3

Элемента a[0] в массиве нет.

Даже если быон был, то введенное значение a[1] было бызаменено новым значениемa[0] + 3.

Snigir03 21 мар. 2020 г., 05:22:11 | 10 - 11 классы

Составить блок схему по программе : Program Vectors ; var k, i, j, sum, para : integer ; y, z : array[1?

Составить блок схему по программе : Program Vectors ; var k, i, j, sum, para : integer ; y, z : array[1.

100] of integer ; begin sum : = 0 ; para : = 0 ; writeln('Введите количество элементов в массивах') ; readln(k) ; for i : = 1 to k do begin writeln('Введите z - ', i) ; readln(z[i]) ; writeln('Введите y - ', i) ; readln(y[i]) ; if z[i] = y[i] then para : = para + 1 ; sum : = sum + z[i] ; end ; writeln('Количество элементов удовлетворяющих условию : ', para) ; writeln('Сумма всех элементов массива z = ', sum) ; readln ; end.

Анядем 24 апр. 2020 г., 17:43:11 | 10 - 11 классы

Дан фрагмент программы на языке паскаль, на вход которого поданы значения N = 10 и M = 2?

Дан фрагмент программы на языке паскаль, на вход которого поданы значения N = 10 и M = 2.

Чему будет равно на выходе из фрагмента значение SUM?

SUM : = 0 ; K : = M - 1 ; while K< ; M do begin for I : = K - M + 2 to K Do SUM : = SUM + I ; K : = K + M ; end ; for I : = K - M + 2 to N - 1 do SUM : = SUM + I ;

Malkovakaterin 22 июн. 2020 г., 01:30:03 | 10 - 11 классы

Дана целочисленная квадратная матрица найти сумму элементов, стоящих выше главной диагонали надо вот эту программу исправить program Project2 ; {$APPTYPE CONSOLE} uses SysUtils ; var A : array of arra?

Дана целочисленная квадратная матрица найти сумму элементов, стоящих выше главной диагонали надо вот эту программу исправить program Project2 ; {$APPTYPE CONSOLE} uses SysUtils ; var A : array of array of Integer ; n, i, j : Integer ; sum : Real ; begin Writeln('Vvedite n') ; readln(n) ; SetLength(a, n, n) ; Writeln('Vvedite A') ; for i : = 1 to n do for j : = 1 to n do Readln (A[i, j]) ; Sum : = 0 ; for i : = 1 to n do for j : = 1 to n do ; begin if (j> ; i) then sum : = sum + A[i, j] ; end ; Writeln ; Writeln ; Writeln('sum = ', sum : 8 : 3) ; Readln ; readln ; Readln ; end.

Roar1503 22 мар. 2020 г., 07:37:41 | 5 - 9 классы

Решить задания на языке программирования в Turbo Pascal : 1) Выполните тестирование программы : опишите как будут меняться значения переменных и что появится на экране в результате выполнения программ?

Решить задания на языке программирования в Turbo Pascal : 1) Выполните тестирование программы : опишите как будут меняться значения переменных и что появится на экране в результате выполнения программы.

Для переменной S ввести строку - 'аб2в457где245 * ж' Program z2 ; uses crt ; var s : string ; k, sum, i, n : integer ; begin readln(s) ; i : = 1 ; repeat val(s[i], n, k) ; i : = i + 2 ; sum : = sum + n ; writeln(n) ; until i> ; length(s) ; writeln(sum) ; readkey ; end.

2) Дано предложение.

Удалить из него все буквы с.

Vfrc01112004 24 июл. 2020 г., 20:16:09 | 10 - 11 классы

Объяснить, что означает каждая строчка : Program sum_mas ; uses Crt ; Var i : integer ; sum : real ; M : array[1?

Объяснить, что означает каждая строчка : Program sum_mas ; uses Crt ; Var i : integer ; sum : real ; M : array[1.

5] of Real ; begin WriteLn('Введите число m[', i, '] = ') ; readln(m[i]) ; end ; Sum : = 0 ; For i : = 1 to 5 do Sum : = sum + m[i] ; Writeln('сумма = ', sum) ; readln ; end.

Расчёскина 4 сент. 2020 г., 00:53:21 | 10 - 11 классы

Отредактируйте, пожалуйста?

Отредактируйте, пожалуйста.

В заданном двумерном массиве найти индексы первого элемента, превосходящего среднее арифметическое всех элементов.

Uses crt ; var b : array[1.

1000, 1.

1000] of integer ; sum, kolvoel, i, j, n : integer ; srar : real ; begin randomize ; n : = 0 ; writeln('Vv razmer matrici') ; readln(n) ; kolvoel : = sqr(n) ; sum : = 0 ; srar : = 0 ; for i : = 1 to n do for j : = 1 to n do begin b[i, j] : = random(2 * 20 + 1) - 20 ; end ; for i : = 1 to n do {vivod matr} begin for j : = 1 to n do write ( b [ i, j ] : 4) ; writeln ; end ; for i : = 1 to n do for j : = 1 to n do sum : = b[i, j] + sum ; srar : = sum / kolvoel ; writeln('srasr = ', srar) ; for i : = 1 to n do for j : = 1 to n do begin if b[i, j]> ; srar then writeln('i = ', i, 'j = ', j) ; break ; end ; end.

VVK020504 18 февр. 2020 г., 11:59:21 | 10 - 11 классы

Почему pascal не может найти файл, пишет что файл не найден, хотя он есть?

Почему pascal не может найти файл, пишет что файл не найден, хотя он есть!

Вот программа

Program ex1 ;

var : a, b, sum : integer ; f1, f2 : text ;

begin assign(f1, 'input.

Txt') ; assign(f2, 'output.

Txt') ; reset(f1) ; read(f1, a, b) ; sum : = a + b ; rewrite(f2) ; write(f2, sum) ; close(f1) ; close(f2) ;

end.

Алеся111111112 18 дек. 2020 г., 19:24:47 | 10 - 11 классы

Требовалось написать программу, при выполнении которой с клавиатуры считывается натуральное число N, не превосходящее 10 ^ 9, и выводится сумма цифр этого числа?

Требовалось написать программу, при выполнении которой с клавиатуры считывается натуральное число N, не превосходящее 10 ^ 9, и выводится сумма цифр этого числа.

Программист торопился и написал программу неправильно : var N : longint ; sum, d : integer ; begin readln(n) ; sum : = 0 ; while N > ; 0 do begin d : = N mod 10 ; N : = N div 10 ; sum : = sum + 1 ; end ; writeln(sum) ; end.

Последовательно выполните следующее.

1. Напишите, что выведет эта программа при вводе числа 256.

2. Приведите пример такого трехзначного числа, при вводе которого программа выдаёт правильный результат.

3. Найдите все ошибки в этой программе ( их может быть одна или несколько).

Bobskill 9 июл. 2020 г., 21:30:30 | 5 - 9 классы

Всем привет?

Всем привет.

Вообщем, вот задача и к ней необходимо написать программу(Pascal).

Код программы будет ниже.

Нужно проверить его на ошибки и дать коментарии к коду.

Если код неправильный прошу подкорректировать.

Буду очень признателен.

Заранее спасибо.

Задача : Дана последовательность из n действительных чисел (n < ; = 100).

Написать программу для подсчета суммы этих чисел.

Код программы : var massiv : array [1.

100] of real ; sum : real ; n, i : integer ; begin clrscr ; writeln ('Введите количество чисел') ; readln (n) ; for i : = 1 to n do begin writeln ('Введите ', i, ' - ое число') ; readln (massiv [i]) ; end ; sum : = 0 ; for i : = 1 to n do sum : = sum + massiv [i] ; writeln ('Сумма последовательности равна ', sum : 0 : 4) ; readln ; end.

Frozzi 14 авг. 2020 г., 12:21:33 | 10 - 11 классы

Чему будет равна переменная sum после выполнения фрагмента программы : sum : = 0 ; i : = 3 ; Repeat Sum : = sum + 3 ; i : = i + 2 Until i> ; 11 ?

Чему будет равна переменная sum после выполнения фрагмента программы : sum : = 0 ; i : = 3 ; Repeat Sum : = sum + 3 ; i : = i + 2 Until i> ; 11 ;