Вводится текст. определите если в нем цифры, если есть замените все цифры на букфу ф

rot3 rot3    2   06.10.2019 11:11    2

Ответы
лол1635 лол1635  09.10.2020 23:26

Program Text;

var

s:string;

k:set of byte;

i: byte;

begin

readln(s);

k:=[0,1,2,3,4,5,6,7,8,9];

for i:=1 to length(s) do

  if ord(s[i]) - 48 in k then

    s[i]:='Ф';

write(s);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика