Решить задания на языке программирования в 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) Дано предложение. Удалить из него все буквы с.
Не тот ответ, который вам нужен?
Найди нужный
Самые новые вопросы
Другие предметы - 1 год назад
Информация
Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.
