Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 188748
29.01.2016, 23:08
0.00 руб.
30.01.2016, 10:23
0 2 1
Образование
Здравствуйте! Прошу помощи в следующем вопросе:
Даны целые положительные числа M и N. Необходимо определить
количество таких целых чисел K, для которых выполняется неравенство
M [$8804$] K2 [$8804$] N.
Для решения этой задачи ученик написал программу, но, к сожалению, его
программа неправильная.
Ниже эта программа
Паскаль
var m, n, k, t: integer;
begin
read(m, n);
k := 1;
t := 1;
while k*k < n do begin
if k*k >= m
then t := t+1;
k := k + 1;
end;
writeln(t)
end.

Обсуждение

давно
Посетитель - 399097
Посетитель
399097
40
29.01.2016, 23:09
общий
Последовательно выполните следующее.
1. Напишите, что выведет эта программа при вводе M = 10 и N = 40.
2. Приведите пример таких чисел M и N, при вводе которых программа
выведет верный ответ. Укажите этот ответ.
3. Найдите в программе все ошибки (их может быть одна или несколько).
Для каждой ошибки выпишите строку, в которой она допущена, и
приведите эту же строку в исправленном виде.
Достаточно указать ошибки и способ их исправления для одного языка
программирования.
Обратите внимание: Вам нужно исправить приведённую программу, а не
написать свою. Вы можете только заменять ошибочные строки, но не можете
удалять строки или добавлять новые. Заменять следует только ошибочные
строки: за исправления, внесённые в строки, не содержащие ошибок, баллы
будут снижаться.
давно
Лысков Игорь Витальевич
Посетитель
7438
7205
01.02.2016, 01:13
общий
это ответ
Здравствуйте, Посетитель - 399097!
1) при вводе M = 10 и N = 40 программа выведет 4
2) при вводе M = 1 и N = 2 программа выведет 2
3) ошибки:
var m, n, k, t: integer;
begin
read(m, n);
k := 1;
t := 0; {t := 1; инициировать счетчик надо 0, а не 1}
while k*k <= n do begin {while k*k < n do begin, в формуле <=n}
if k*k >= m
then t := t+2; {then t := t+1; надо искать целые числа, поэтому надо учитывать и отрицательные, равные по модулю положительным}
k := k + 1;
end;
writeln(t)
end.
Об авторе:
"Если вы заметили, что вы на стороне большинства, —
это верный признак того, что пора меняться." Марк Твен
Форма ответа