Количество чисел между 100 и 1000, которые делятся без остатка одновременно на 13 и 15

@Alastor · Регистрация: 09.10.2013

определите и выведите на экран количество чисел между 100 и 1000, которые делятся без остатка одновременно на13 и 15

@Samhain · 25.10.2013, 15:29

Alastor,

Pascal

var i,k:integer;
begin
  k:=0;
  for i:=100 to 1000 do
    if (i mod 13=0)and(i mod 15=0) then
      begin
        writeln(i);
        inc(k);
      end;
  writeln('k = ',k);
  readln
end.

@Alastor 0 / 0 / 0 Регистрация: 09.10.2013 Сообщений: 35
		1
	Количество чисел между 100 и 1000, которые делятся без остатка одновременно на 13 и 15 25.10.2013, 13:37. Показов 16706. Ответов 1 Метки нет (Все метки) определите и выведите на экран количество чисел между 100 и 1000, которые делятся без остатка одновременно на13 и 15 __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Количество чисел между 100 и 1000, которые делятся без остатка одновременно на 13 и 15

Решение