М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
AnnKulibyakina
AnnKulibyakina
10.03.2023 22:44 •  Информатика

Требовалось написать программу, при выполнении которой с клавиатуры считывается натуральное число n, не превосходящее 10^9, и выводится произведение цифр этого числа. программист торопился и написал программу неправильно. (ниже для вашего удобства программа представлена на четырёх языках программирования. ) var n, product: longint; digit: integer; begin readln(n); product: =n mod 10; while n > = 10 do begin digit: = n mod 10; product: = product*digit; n: = n div 10; end; writeln(product); end. последовательно выполните следующее. 1. напишите, что выведет эта программа при вводе числа 532. 2. найдите все ошибки в этой программе (их может быть одна или несколько) . для каждой ошибки: 1)выпишите строку, в которой сделана ошибка; 2)укажите, как исправить ошибку, - правильный вариант строки. обратите внимание, что требуется найти ошибки в имеющейся программе, а не написать свою, возможно, использующую другой алгоритм решения. исправление ошибки должно затрагивать только строку, в которой находится ошибка.

👇
Ответ:
DaniilTatarinov
DaniilTatarinov
10.03.2023
1) для числа 532 от напечатает 60
2) ошибка: product:=N mod 10;
нужно написать: product:=1;
4,8(42 оценок)
Открыть все ответы
Ответ:
Блок схемы не очень момню поэтому заменил блоки тэгами. Надеюсь, понятно.

<блок начало> Начало
<блок ввода данных> Ввести А, B </блок>
<блок действия> C:=(A+B)/2 </блок>
<блок дествия> D:=2*A*B</блок>
<блок проверки условия> A<b?</блок>
<если да>
<блок действия> A:=C</блок>
<блок дествия>B:=D</блок>
</если>
<если нет>
<блок действия> B:=C</блок>
<блок дествия>A:=D</блок>
</если>
<блок вывода>Вывести A,B<блок вывода>
<блок конца>Конец </блок>
4,6(33 оценок)
Ответ:
gagag590
gagag590
10.03.2023
Var
   A,d,k,i:longint;
Begin
WriteLn('Введите четыре числа');
For i:= 1 to 4 do
    Begin
    Read(A);
    Write('Делители числа ',A,': ',A,', ');
    d:=A div 2+1;
    While d>0 do
       Begin
       if A mod d = 0 then
          Begin
          Write(d,', ');
          k:=k+1;
          End;
       d:=d-1;
       End;
    Write('кол-во его делителей: ',k);
    k:=1;
    WriteLn;
    End;
End.

Пример:
Введите четыре числа
987654321 32767 256 13
Делители числа 987654321: 987654321, 329218107, 109739369, 58097313, 19365771, 6455257, 3417489, 1139163, 379721, 2601, 867, 289, 153, 51, 17, 9, 3, 1, кол-во его делителей: 17
Делители числа 32767: 32767, 4681, 1057, 217, 151, 31, 7, 1, кол-во его делителей: 8
Делители числа 256: 256, 128, 64, 32, 16, 8, 4, 2, 1, кол-во его делителей: 9
Делители числа 13: 13, 1, кол-во его делителей: 2
4,5(42 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ