Всем привет?

Игорь888 9 июл. 2020 г., 21:30:34

Var i, n : integer ;

k, k1 : real ;

begin ;

readln(n) ;

for i : = 1 to n do / / повторить n раз

begin ; / / начало тела цикла

readln(k1) ; / / читаем промежуточную переменную k : = k + k1 ; / / прибавляем к общей сумме

end ; / / конец тела цикла

writeln('Result : ', k) ; / / вывод общей суммы

end.

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.

Polinka275 15 мая 2020 г., 04:26:59 | 5 - 9 классы

Paskal выдаёт ошибку, помогите пожалуйста испрвить : Задача : Написать программу, которая проверяет, является ли четным введенное пользователем целое число?

Paskal выдаёт ошибку, помогите пожалуйста испрвить : Задача : Написать программу, которая проверяет, является ли четным введенное пользователем целое число.

Program cisla ; var a : integer ; begin writeln('Введите число, ') ; readln(a) ; if a mod 2 = 0 then writeln('Число четное') ; else writeln('Число нечетное') ; readln end.

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.

Yanis06 12 июн. 2020 г., 20:35:14 | 10 - 11 классы

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

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

Var a : array [1.

8] of integer ; i, sum : integer ; begin readln (a [1]) ; sum : = 0 ; for i : = 1 to 8 do a [i] : = a [i - 1] + 3 ; for i : = 8 downto 1 do sum : = sum + a [i] ; writeln (sum) end.

Smile2200 3 сент. 2020 г., 23:45:34 | 5 - 9 классы

Задание : Написать программу вычисляющую сумму четырех чисел?

Задание : Написать программу вычисляющую сумму четырех чисел.

(PascalABC) Решение : Program sum ; Var a, b, c, d, summa : Integer ; Begin Readln(a, b, c, d) ; summa : = a + b + c + d Writeln('Ответ равен : ', summa) ; End.

На предпоследней строчке(перед End) выдает ошибку - встречено writeln а ожидалось ' ; ' Что не так?

Алеся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. Найдите все ошибки в этой программе ( их может быть одна или несколько).

Natashnatali 27 июл. 2020 г., 06:39:13 | 5 - 9 классы

Необходимо написать программу сложения двух матриц произвольной размерности, предусмотреть проверку возможности сложения?

Необходимо написать программу сложения двух матриц произвольной размерности, предусмотреть проверку возможности сложения.

Программа написана не верно, помогите исправить ошибки.

Type mass = array[1.

10, 1.

10] of real ; var a, b, c : mass ; n, m, i, j, n1, m1 : integer ; procedure MatrA (var a : mass) ; var n, m, i, j : integer ; begin for i : = 1 to n do for j : = 1 to m do writeln('a[', i, ', ', j, '] : ') ; readln(a[i, j]) ; end ; procedure MatrB (var b : mass) ; var i, j, n1, m1 : integer ; begin for i : = 1 to n1 do for j : = 1 to m1 do writeln('b[', i, ', ', j, '] : ') ; readln(b[i, j]) ; end ; procedure Sum(a, b, c : mass) ; var i, j, n, m : integer ; begin for i : = 1 to n do for j : = 1 to m do c[i, j] : = a[i, j] + b[i, j] ; end ; begin writeln('Введите n, m матрицы A') ; readln(n, m) ; MatrA(a) ; writeln('Введите n, m матрицы B') ; readln(n1, m1) ; MatrB(b) ; if (n1< ; > ; n) and (m1< ; > ; m) then writeln('Матрицы сложить нельзя') ; readln ; Sum(a, b, c) ; writeln('A + B') ; for i : = 1 to n do begin for j : = 1 to m do write(c[i, j] : 1 : 3, ' ') ; writeln ; end ; readln ; end.

14013 10 мая 2020 г., 01:22:45 | 10 - 11 классы

Объяснить, в чем заключается синтаксическая ошибка (или ошибки) в приведенной программе?

Объяснить, в чем заключается синтаксическая ошибка (или ошибки) в приведенной программе.

Написать тот вариант программы, который, по Вашему мнению, будет правильным.

Program My_Error ; Var X, Y, Сумма : Integer ; Begin WriteLn( Введите значение X) ; ReadLn(X) ; WriteLn( Введите значение Y) ; ReadLn(Y) ; Сумма = X + Y ; WriteLn(Сумма) End.