Даны 4 целых положительных числа. Необходимо выбрать из них те числа, которые делятся без остатка на свою последнюю цифру, подсчитать и вывести сумму таких чисел. Например, в наборе (10, 11, 15, 18) условию удовлетворяют числа 11 и 15, в ответе должно получиться 26. Если подходящих чисел в наборе нет, сумма считается равной 0.
Для решения этой задачи ученик написал программу, но, к сожалению, его программа неправильная. Ниже эта программа для Вашего удобства приведена на пяти языках программирования.
| Бейсик | Python |
|---|---|
DIM S, X, DX AS INTEGER S = 0 FOR I = 1 to 4 INPUT X DX = X \ 10 IF DX > 0 THEN IF X MOD DX = 0 THEN S = X END IF END IF NEXT I PRINT S
| s = 0 for i in range (4): x = int(input()) dx = x // 10 if dx > 0: if x % dx == 0: s = x print(s)
|
| Паскаль | Алгоритмический язык |
var s, x, dx, i: integer; begin s := 0; for i:=1 to 4 do begin readln(x); dx := x div 10; if dx > 0 then begin if x mod dx = 0 then s :=x end end; write(s) end.
| алг нач цел s, x, dx, i s := 0 для i от 1 до 4 ввод x dx := div(x,10) если dx > 0 то если mod(x,dx) = 0 то s := x все все кц вывод s кон |
| Си++ | |
#include <iostream> using namespace std;
int main() { int s, x, dx, i; s = 0; for (i=1; i<=4; ++i) { cin >> x; dx = x / 10; if (dx > 0) { if (x % dx == 0) s = x; } cout << s; return 0; }
| |
Последовательно выполните следующее.
1. Напишите, что выведет эта программа при вводе чисел 3, 12, 39, 45.
2. Приведите пример исходных данных, при вводе которых программа, несмотря на ошибки, выведет верный ответ
3. Найдите в программе все ошибки (известно, что их не больше двух) и исправьте их. Для каждой ошибки выпишите строку, в которой она допущена, и приведите эту же строку в исправленном виде.
1. При вводе указанных чисел программа выведет число 39.
2. Программа проверяет делимость не на последнюю цифру, а на число с зачёркнутой последней цифрой, а вместо суммы выводит последнее такое число. Ответ будет верным, если это число совпадёт с правильной суммой. Пример такого набора: 11, 13, 15, 26.
3. В программе есть две ошибки.
Первая ошибка: Неверное определение последней цифры числа. Использована операция целого деления вместо нахождения остатка (div вместо mod).
Строка с ошибкой:
dx := x div 10;
Верное исправление:
dx := x mod 10;
Вторая ошибка: Неверный подсчёт суммы. Очередное найденное значение не прибавляется к сумме, а просто записывается в неё
Строка с ошибкой:
then s :=x
Верное исправление:
then s := s + x