• Напишите программу нахождения произведения цифр 5ти значного числа на языке Паскаль. Заранее спасибо)

Ответы 2

  • Извиняюсь. Невнимательно прочитал задание. После del:=10000; нужно добавить строку s:=1; строку s:=s+x1; заменить на s:=s*x1 строку writeln ('summa... поменять на writeln ('proizvedenie...;
    • Автор:

      amiah
    • 6 лет назад
    • 0
  • program qqq;var n, s, x1, z1, i, del: integer;beginwriteln ('vvedi 5-znachnoe chislo < 32768');{ограничение типа integer}readln (n);del:=10000;for i:=1 to 5 dobeginz1:= n mod del;x1:= n div del;s:=s+x1;n:=z1;del:=del div 10;end;writeln ('summa cifr=', s);readln;end.
    • Автор:

      axelevans
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years