Решить самостоятельно:. Задание 24. Задание 24

Решить самостоятельно:

3) Задание 24

Дано натуральное число N, не превосходящее 10⁸. Необходимо найти и вывести число, которое получится при записи N справа налево и удалении всех девяток. Ведущие нули выводить не надо. Если в числе N нет цифр кроме девяток и нулей, необходимо вывести 0. Например, при вводе числа 1984 нужно вывести 481, а при вводе 2009 нужно вывести 2. Для решения этой задачи ученик написал такую программу:

Бейсик	Паскаль
DIM N, M AS LONG DIM D AS INTEGER INPUT N M = 0 WHILE N>1 D = N MOD 10 IF D<9 THEN M = M + D END IF N = N \ 10 WEND PRINT M END	var n, m: longint; d: integer; begin read(n); m := 0; while n>1 do begin d := n mod 10; if d < 9 then begin m := m + d; end; n := n div 10; end; write(m); end.

Последовательно выполните следующее.

1. Напишите, что выведет эта программа при вводе числа 1984.

2. Приведите пример числа, при вводе которого программа выдаст верный ответ.

3. Найдите в программе все ошибки (их может быть одна или несколько). Для каждой ошибки выпишите строку, в которой она допущена, и приведите эту же строку в исправленном виде.

Обратите внимание: Вам нужно исправить приведённую программу, а не написать свою. Вы можете только заменять ошибочные строки, но не можете удалять строки или добавлять новые. Заменять следует только ошибочные строки: за исправления, внесённые в строки, не содержащие ошибок, баллы будут снижаться.

4) Задание 24

На обработку поступает последовательность из четырёх неотрицательных целых чисел (некоторые числа могут быть одинаковыми). Нужно написать программу, которая выводит на экран количество всех чисел исходной последовательности, которые делятся без остатка на 10, и сумму таких чисел. Если в последовательности нет чисел, которые делятся без остатка на 10, то на экран нужно вывести «NO». Известно, что вводимые числа не превышают 1000. Программист написал программу неправильно. Ниже эта программа для Вашего удобства приведена на пяти языках программирования.

Напоминание: 0 делится на любое натуральное число.

Паскаль	Алгоритмический язык
const n = 4; var i, x, sum, count: integer; begin count := 0; sum := 0; for i := 1 to n do begin read(x); if x mod 10 = 0 then begin count := count+1; sum := x; end end; if sum > 0 then begin writeln(count); writeln(sum); end else writeln('NO') end.	алг нач цел n = 4 цел i, x, sum, count count := 0 sum := 0 нц для i от 1 до n ввод x если mod(x,10) = 0 то count := count + 1 sum := x все кц если sum > 0 то вывод count вывод sum иначе вывод "NO" кон

Последовательно выполните следующее.

1. Напишите, что выведет эта программа при вводе последовательности: 20, 25, 40, 45.

2. Приведите пример последовательности, в которой есть хотя бы одно число, делящееся на без остатка 10, при вводе которой, несмотря на ошибки, программа печатает правильный ответ.

3. Найдите все ошибки в этой программе (их может быть одна или несколько). Известно, что каждая ошибка затрагивает только одну строку и может быть исправлена без изменения других строк. Для каждой ошибки:

1) выпишите строку, в которой сделана ошибка;

2) укажите, как исправить ошибку, т.е. приведите правильный вариант строки.

Достаточно указать ошибки и способ их исправления для одного языка программирования.

Обратите внимание на то, что требуется найти ошибки в имеющейся программе, а не написать свою, возможно, использующую другой алгоритм решения. Исправление ошибки должно затрагивать только строку, в которой находится ошибка.

5) Задание 24

На обработку поступает последовательность из четырёх неотрицательных целых чисел (некоторые числа могут быть одинаковыми). Нужно написать программу, которая выводит на экран количество делящихся нацело на 4 чисел в исходной последовательности и максимальное делящееся нацело на 4 число. Если делящихся нацело на 4 чисел нет, требуется на экран вывести «NO». Известно, что вводимые числа не превышают 1000. Программист написал программу неправильно. Ниже эта написанная им программа для Вашего удобства приведена на пяти языках программирования.

Бейсик	Python
CONST n = 4 count = 0 maximum = 1000 FOR I = 1 TO n INPUT x IF X MOD 4 = 0 THEN count = count + 1 IF x < maximum THEN maximum = x END IF END IF NEXT I IF count > 0 THEN PRINT count PRINT maximum ELSE PRINT “NO” END IF	n = 4 count = 0 maximum = 1000 for i in range(1, n + 1): x = int(input()) if x % 4 == 0: count += 1 if x < maximum: maximum = x if count > 0: print(count) print(maximum) else: print("NO")
Паскаль	Алгоритмический язык
const n = 4;var i, x: integer;var maximum, count: integer;begin count := 0; maximum := 1000; for i:=1 to n do begin read(x); if x mod 4 = 0 then begin count := count + 1; if x < maximum then maximum := x; end; end; if count > 0 then begin writeln(count); writeln(maximum); end else writeln('NO'); end.	алгнач цел n = 4 цел i, x цел maximum, count count := 0 maximum := 1000 нц для i от 1 до n ввод x если mod(x, 4) == 0 то count := count + 1 если x < maximum то maximum := x все все кц если count > 0 то вывод count, нс вывод maximum иначе вывод "NO" всекон
Си++
#include <iostream>using namespace std; int main(){ const int n = 4; int x, maximum, count; count = 0; maximum = 1000; for (int i = 1; i <= n; i++) { cin >> x; if ( x % 4 == 0 ) { count++; if ( x < maximum ) maximum = x; } } if ( count > 0 ) { cout << count << endl; cout << maximum; } else cout << "NO"; return 0; }

Последовательно выполните следующее.

1. Напишите, что выведет эта программа при вводе последовательности: 2 8 4 3.

2. Приведите пример такой последовательности, содержащей хотя бы одно делящееся нацело на 4 число, что при её вводе приведённая программа, несмотря на ошибки, выведет правильный ответ.

3. Найдите допущенные программистом ошибки и исправьте их. Исправление ошибки должно затрагивать только строку, в которой находится ошибка. Для каждой ошибки:

1) выпишите строку, в которой сделана ошибка;

2) укажите, как исправить ошибку, т. е. приведите правильный вариант строки.

Известно, что в тексте программы можно исправить ровно две строки так, чтобы она стала работать правильно.

Достаточно указать ошибки и способ их исправления для одного языка программирования.

Обратите внимание на то, что требуется найти ошибки в имеющейся программе, а не написать свою, возможно, использующую другой алгоритм решения.

Примечание. 0 делится на любое натуральное число.