Удвоить произведение цифр заданного k-значного числа

@Александра2307 · Регистрация: 25.04.2015

Студворк — интернет-сервис помощи студентам

Дана программа, решающая некоторую задачу. В программе имеются синтаксические ошибки и пропуски. Необходимо исправить ошибки и заполнить пропуски. Предложить систему тестов для проверки работоспособности программы.

Удвоить произведение цифр заданного k -значного числа.

Pascal

Var   k : 1..4; n: _________; 
Begin
writeln('Введите количество цифр k:'); 
readln(k);
writeln('Введите число:'); 
readln(n);
case k of
    1 : writeln ('ответ:',2*n);
    2 : writeln ('ответ:', (n div 10) * (n mod 10));
    3 : writeln ('ответ:',2*(n div 100)*(n div 10 mod 10)*(n mod 10));
    4 : writeln ('ответ:',2*(n div 100)*(n div 100 mod 10)*(n div 10 mod 10)*(n mod 10));
    
End.

@ZX Spectrum-128 · 27.04.2015, 12:36

Pascal

Var
  k : 1..4; n: word;
Begin
  writeln('Введите количество цифр k:');
  readln(k);
  writeln('Введите число:');
  readln(n);
  case k of
    1 : writeln ('ответ:',2*n);
    2 : writeln ('ответ:',2*(n div 10) * (n mod 10));
    3 : writeln ('ответ:',2*(n div 100)*(n div 10 mod 10)*(n mod 10));
    4 : writeln ('ответ:',2*(n div 1000)*(n div 100 mod 10)*(n div 10 mod 10)*(n mod 10));
  end;
End.

Опции темы