Требовалось написать программу, которая получает на входе натуральное число n и выводит число, которое получается из n после удаления всех пятерок, порядок остальных цифр при этом не меняется. Программист торопился и написал программу неверно, найдите неверную строку и исправьте ее.var n, r, t:longint; d:integer;begin readln (n); r:=0; t:=1; while n>0 do begin d:=n mod 10; if d=5 then begin r:=r+d*t; t:=t+1 end; n:=n div 10; end;writeln (t);end.
Требовалось написать программу, которая получает на входе натуральное число n и выводит число, которое получается из n после удаления всех пятерок, порядок остальных цифр при этом не меняется. Программист торопился и написал программу неверно, найдите неверную строку и исправьте ее.var n, r, t:longint; d:integer;begin readln (n); r:=0; t:=1; while n>0 do begin d:=n mod 10; if d=5 then begin r:=r+d*t; t:=t+1 end; n:=n div 10; end;writeln (t);end.
Похожие вопросы
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Интересные статьи из справочника
Поможем написать учебную работу
Отвечай на вопросы, зарабатывай баллы и трать их на призы.
Подробнее
Подробнее
var n, r, t: longint;
d: integer;
begin
readln(n);
r := 0;
t := 1;
while n > 0 do
begin
d := n mod 10;
if d <> 5 then
begin
r := r + d t;
t := t 10;
end;
n := n div 10;
end;
writeln(r);
end.