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

Ezavalnyuk 22 мар. 2020 г., 07:37:47

Первая программа считает сумму входящих в строку цифр стоящих на местах с нечетными номерами, начиная с первой, если это буква то вместо нее берется 0(ноль)

результат выполнения

аб2в457где245 * ж

0

2

4

7

0

2

5

0

20

2)

var s, r : string ; i : integer ;

begin readln(s) ; r : = '' ; for i : = 1 to length(s) do if s[i] < ; > ; 'c' then r : = r + s[i] ; writeln(r) ;

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.

Toluanchick2014 29 мар. 2020 г., 07:56:03 | 10 - 11 классы

Набрать в программе Pascal программу исправив ошибки : PROGRAM 123 ; USES CRT ; VAR A, S : INTEDGER ; BEGIN WRITELN ( 'ВВЕДИТЕ ДВА ЧИСЛА ') ; READ(Q, W) ; F : = Q / W ; WRITELN ( 'РЕЗУЛЬТАТ ' , F) ; R?

Набрать в программе Pascal программу исправив ошибки : PROGRAM 123 ; USES CRT ; VAR A, S : INTEDGER ; BEGIN WRITELN ( 'ВВЕДИТЕ ДВА ЧИСЛА ') ; READ(Q, W) ; F : = Q / W ; WRITELN ( 'РЕЗУЛЬТАТ ' , F) ; READLN ; END.

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.

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

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

Найдите значение переменной А после выполнения программы VAR A : INTEGER BEGIN A : = SQRT(16) : 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. Найдите все ошибки в этой программе ( их может быть одна или несколько).

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 ;

КАРЭН 8 окт. 2020 г., 14:16:25 | 10 - 11 классы

Напишите программу, которая складывает переменные A и B и записывает результат в переменную SUM?

Напишите программу, которая складывает переменные A и B и записывает результат в переменную SUM.