Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 30.05.2011, 13:39   #1
Nipuh
Новичок
Джуниор
 
Регистрация: 05.05.2011
Сообщений: 2
По умолчанию Используя только операции сложения и вычитания, найти частное от деления нацело N на K, а также остаток

Даны целые положительные числа N и K. Используя только операции сложения и вычитания, найти частное от деления нацело N на K, а также остаток от этого деления.

Нужно использовать оператор while, а потом repeat, т.е. по отдельности. Если что, у меня есть код, где они вместе используются.
Nipuh вне форума Ответить с цитированием
Старый 30.05.2011, 13:49   #2
Aristarh Dark
Форумчанин
 
Регистрация: 07.08.2007
Сообщений: 154
По умолчанию

это?
Код:
const
  n = 100;
  k = 13;
var
  i,j,m:integer;
begin
  j:=k;
  i:=1;
  while n-j>k do
    begin
      j:=j+k;
      i:=i+1;
    end;
  m:=n-j;
  writeln(n,' div ',k,' = ',i);
  writeln(n,' mod ',k,' = ',m);
  readln;
end.
только зачем repeat - непонятно...
Aristarh Dark вне форума Ответить с цитированием
Старый 30.05.2011, 13:52   #3
Nipuh
Новичок
Джуниор
 
Регистрация: 05.05.2011
Сообщений: 2
По умолчанию

Ну вообще да, правда необязательно значения для n и k присваивать. А на repeat как сделать?
Nipuh вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
C: частное и остаток от деления двух полиномов xad_jek Помощь студентам 11 11.12.2010 16:43
Возведение числа в степень используя только операцию сложения (Delphi) giga_person Помощь студентам 3 16.03.2010 22:38
Массивы, частное, остаток(исправить) Alter Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 4 24.05.2008 23:37
Создать массив только из тех элементов, у которых остаток от деления на М равен L (0<=L<=M-1) Айвенго Microsoft Office Excel 2 12.01.2008 16:28