Составить и отладить программу, выполняющую следующее . заменить цифру ≪3≫.во введенной строке на ≪5≫.

Question

Информатика: Составить и отладить программу, выполняющую следующее . заменить цифру ≪3≫.во введенной строке на ≪5≫.

СофияKomarova · Accepted Answer

Var chislo:integer;
proverka:boolean;
begin
proverka:=true;
  read(chislo);
  repeat
   if chislo=0 then //так как 0 не натуральное число
begin
  proverka:=false;
  break;
end;
if (chislo mod 3)>0 then
  begin
  proverka:=false;
   break;
end
else chislo:=chislo div 3;
until(chislo=0);
if proverka then WriteLn('Да')
  else WriteLn('Нет');
  readln;
end.

MOGZ ответил