Напишите программу, которая из введённого с клавиатуры - вопрос №5006380 от Белоеморе 08.10.2020 22:49

Question

Информатика: Напишите программу, которая из введённого с клавиатуры натурального числа удаляет все цифры 5. программа получает на вход целое число не превышающее 30000. программа должна вывести одно число- число, полученное из исходного, после удаления всех цифр 5 и из его записи. пример работы программы: входные данные-25455 выходные данные-24

Белоеморе · Answer

Var  s, s2: string;  i: integer;begin  Write( Введите число );  Readln(s);  for i := 1 to 5 do    if s[i] 5 then s2 := s2 + s[i];  Writeln(s2);end....