Вычисление чисел из промежутка - 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.
if t1 <> 'Хватит' then begin
writeln('Введите числовой промежуток: начало и конец');read(a, b);
Решение задачи: «Вычисление чисел из промежутка»
textual
Листинг программы
Введите числовой промежуток: начало и конец
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д