Определить количество элементов последовательности натуральных чисел, кратных числу M и заключенных в промежутке от L до N.

@Linkez · Регистрация: 21.12.2012

Студворк — интернет-сервис помощи студентам

@CodeR · 19.01.2013, 11:51

Pascal

Var t,m,l,n,k:integer;
Begin
    write('M = ');readln(m);
    write('L,N = ');readln(l,n);
    writeln('Окончание ввода "0"');
    Repeat
     write('Число = ');
     readln(t);
     if (t mod m = 0)and(l<=t)and(t<=n)and(t<>0) then inc(k);
    Until t=0;
    writeln(k);
End.

@Linkez 0 / 0 / 0 Регистрация: 21.12.2012 Сообщений: 26
		1
	Определить количество элементов последовательности натуральных чисел, кратных числу M и заключенных в промежутке от L до N. 18.01.2013, 15:27. Показов 5281. Ответов 1 Метки нет (Все метки) Определить количество элементов последовательности натуральных чисел, кратных числу M и заключенных в промежутке от L до N. 0

Опции темы

Определить количество элементов последовательности натуральных чисел, кратных числу M и заключенных в промежутке от L до N.

Решение