Требовалось написать программу, которая получает на входе натуральное число 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.

Question

Яна Семенова

Информатика

28 февраля, 16:09

Требовалось написать программу, которая получает на входе натуральное число 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.

+5

Ответы (1)

Знаешь ответ на этот вопрос?

Артём Щеглов · Answer 1

var n, r, t:longint;

d:integer;

begin

readln (n);

r:=0;

t:=1;

while n>0 do

begin

d:=n mod 10;

if d5 then begin r:=r + d*t; t:=t * 10; end; / / первая ошибка - знак "=" заменил на "", вторая ошибка - в формуле t + 1 заменил на t * 10 для формирования нового числа без пятерок

n:=n div 10;

end;

writeln (r); / / третья ошибка, выводим на экран новое полученное число r

end.