Вычисление чисел из промежутка - Pascal

Узнай цену своей работы

Формулировка задачи:

var
  t1: string;
 
var
  a, b, c, d, n: integer;
 
begin
  writeln('Вас приветствует программа по поиску кратных числу чисел в промежутке.');
  //writeln('Для начала работы,нажмите Enre');
  repeat
    writeln('Нажмите Enter для продолжения работы, введите "Хватит"+Enter для прекращения работы');read(t1);
    if t1 <> 'Хватит' then begin
      writeln('Введите числовой промежуток: начало и конец');read(a, b);
      writeln('Введите число,на которое должны делится числа');read(c);
      n := 0;
      while a <= b do
      begin
        d := a mod c;
        if d = 0 then begin
          n := n + 1;
          write(a, ' ')
        end;
        a := a + 1;
      end
    end;
    writeln();
    writeln('Список построен.Всего-', n, ' чисел/числа');  
  until t1 = 'Хватит';     
  writeln('Благодарим за использование');
end.
Две проблемы: 1. И самая для меня так сказать больная). На рисунке подчеркнул. Почему на 2 и на дальнейших кругах выполнения программы, не учитывается
if t1 <> 'Хватит' then begin
данная строка? И сразу действие переходит к
writeln('Введите числовой промежуток: начало и конец');read(a, b);
. 2. Вторая заключается в том, что после завершения выполнения программы словом "Хватит", выдаёт ошибку: PABCSystem.pas(4133) : Ошибка времени выполнения: Входная строка имела неверный формат.

Решение задачи: «Вычисление чисел из промежутка»

textual
Листинг программы
Введите числовой промежуток: начало и конец

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 4.667 из 5
Похожие ответы