Задать вопрос
3 ноября, 09:33

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

+3
Ответы (1)
  1. 3 ноября, 10:26
    0
    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 1 ошибка: надо вместо d=5 написать d5

    r:=r+d*t;

    t:=t+1 2 ошибка: надо вместо t+1 написать t*10

    end;

    n:=n div 10;

    end;

    writeln (t) ; 3 ошибка: надо вместо t написать r

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Требовалось написать программу, которая получает на входе натуральное число n и выводит число, которое получается из n после удаления всех ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы