Вопрос школьника по предмету Информатика
Написать программу на паскаль:
Дано натуральное число N. Выбросить из записи числа N все четыре цифры.
Помогите пожалуйста, срочно нужно!!!!!
Даю 65 баллов
Ответ учителя по предмету Информатика
Ответ:
program pr;
uses crt;
Var i,n,a,s:integer;
Begin
Writeln(‘Введите. n’);
readln(n);
i:=1;
s:=0;
While n<>0 do
Begin
a:=n mod 10;
if (a<>0) and (a<>5) then
Begin
s:=s+a*i;
i:=i*10;
end;
n:=n div 10;
end;
Writeln(s);
end.
Объяснение:
Похожие вопросы от пользователей