Решить задания на языке программирования в 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) Дано предложение. Удалить из него все буквы с.

Question

Информатика

Марьяна

28 апреля, 21:25

Решить задания на языке программирования в 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) Дано предложение. Удалить из него все буквы с.

+4

Ответы (1)

Знаете ответ?

Серафим · Answer 1

первая программа считает сумму входящих в строку цифр стоящих на местах с нечетными номерами, начиная с первой, если это буква то вместо нее берется 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.