Read( x );

if x mod 3 = 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.

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

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

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

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

строки.

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

52) Требовалось написать программу, при выполнении которой с клавиатуры считывается натуральное число N, не превосходящее 10⁹, и выводится сумма цифр этого числа. Программист торопился и написал программу неправильно:

var N: longint;

sum, d: integer;

Begin

Readln(N);

sum: = 1;

while N > 0 do begin

d: = N mod 10;

N: = N div 10;

sum: = sum + 1;

End;

Writeln(sum);

End.

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

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

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

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

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

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

53) Требовалось написать программу, при выполнении которой с клавиатуры считывается натуральное число N, не превосходящее 10⁹, и выводится сумма цифр этого числа. Программист торопился и написал программу неправильно:

var N: longint;

sum, d: integer;

Begin

Readln(N);

sum: = 1;

while N > 0 do begin

d: = N mod 10;

N: = N div 10;

sum: = d;

End;

Writeln(sum);

End.

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

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

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

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

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

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

54) Требовалось написать программу, при выполнении которой с клавиатуры считывается натуральное число x, не превосходящее 1000, и выводится количество значащих цифр в двоичной записи этого числа. Программист торопился и написал программу неправильно.

var x, cnt: integer;

Begin

Readln(x);

cnt: = 0;

while x > 0 do begin

cnt: =cnt + x mod 2;

x: = x div 10

End;