С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
azder azdrovich
0 / 0 / 0
Регистрация: 21.11.2015
Сообщений: 3
1

Написать программу для нахождения остатка от деления натурального числа а на натуральное число b

21.11.2015, 18:12. Просмотров 934. Ответов 2
Метки нет (Все метки)

Написать программу для нахождения остатка от деления натурального числа а на натуральное число b путем последовательного вычитания из числа a числа b.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.11.2015, 18:12
Ответы с готовыми решениями:

Написать программу по условию, и определить истину или ложь. Натуральное число N является квадратом натурального числа
Задача: Написать программу по условию, и определить истину или ложь. Условие:...

Дано натуральное число п. Написать программу для определения первой цифры числа п.
Мальчики привет ,помогите пожалуйста. Я очень надеюсь на вас. Мне эту задачу...

Задано целое число N (>0). C операциями деления нацело и взятия остатка от деления определить, имеются ли в записи числа N цифра 2.
1. Задано целое сило N (>0). C операциями деления нацело и взятия остатка от...

Составить программу нахождения для заданного натурального числа всех делителей, кратных числу
1. Дан одномерный массив, состоящий из вещественных элементов. Найти сумму...

Составить функцию для нахождения наименьшего нечетного натурального делителя k (k≠1) любого заданного натурального числа n
Составить функцию для нахождения наименьшего нечетного натурального делителя k...

2
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
4258 / 3088 / 3808
Регистрация: 05.06.2014
Сообщений: 15,492
21.11.2015, 20:46 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var
  t, a, b, i: integer;
begin
  readln(a,b);
  t := a; 
  i := 0;
  repeat
    t := t - b;
    inc(i);
  until t < b;
  writeln(i);
end.
0
vint-81
охотник
1009 / 533 / 650
Регистрация: 29.09.2014
Сообщений: 1,083
21.11.2015, 22:03 3
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

Pascal
1
2
3
4
5
6
var a,b: integer;
begin
  readln(a,b);
  while a>=b do a:=a-b;
  writeln(a);
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.11.2015, 22:03

Написать программу, производящуютакое разложение для произвольного натурального числа
помогите с программой. Любое натуральное число можно единственным образом...

Переставляя цифры натурального числа N, составить натуральное число М
Составить программу, проверяющую, можно ли, переставляя цифры натурального...

Написать рекурсивную функцию нахождения цифрового корня натурального числа
Написать рекурсивную функцию нахождения цифрового корня натурального числа....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru