Программирование а Паскаль!!! СРОЧНОУбрать из числа все четные цифры!!!
Программирование а Паскаль!!! СРОЧНО
Убрать из числа все четные цифры!!!
Гость
Ответ(ы) на вопрос:
Гостьvar
i:integer;
s,x:string;
begin
write('Введите число: ');
readln(s);
for i:=1 to length(s) do
if StrToInt(s[i])mod 2=1 then x:=x+s[i];
writeln(x);
end.
Не нашли ответ?
Похожие вопросы