Решить задания на языке программирования в Turbo Pascal: 1) Выполните тестирование - №399078

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

Ответы 1

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

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

аб2в457где245*ж0247025020

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.
- Автор:
  juddufkt
- 6 лет назад
- 0
Добавить свой ответ

Еще вопросы

How much to ban the user?

1 hour 1 day 100 years