tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Даны целые положительные
Даны целые положительные числа n и k. используя только операции сложения и вычитания, найти частное от деления нацело n на k, а также остаток от этого деления.
diko2009
2 16.06.2019 06:50
19
Ответы
fedarmo
13.07.2020 01:59
Program gt;
var n,k,t:integer;
begin
read(n,k);
t:=0;
while n>=k do
begin
n:=n-k;
t:=t+1;
end;
writeln(t);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
NastyaDersen2004
26.02.2021 22:42
Заполните массив случайными числами в интервале [-100,100] и переставить элементы так, чтобы все положительные элементы стояли в начале массива, а все отрицательные и нули-в...
saha174zxcvb
26.02.2021 22:33
решить тест по порограммированию. Вопрос 14Пусть на страницу с ключами (10, 20, 30, 40) простейшего Б-дерева порядка 2 добавляется новый элемент 35. Какие страницы после этого...
ёлкап
26.02.2021 22:23
найти ошибку в программе на с++ задача и моя программа прикреплены. вроде всё правильно, но при вводе как в примере, у меня выходит yes вместо no...
хорошистка256
26.02.2021 22:20
Python. Дан список, выведите все комбинации из двух чисел для этого списка. Повторять комбинации не нужно, то есть если вывели 1 2, то выводить 2 1 не требуется....
Skeletron129
26.02.2021 22:16
Відоме натуральне трицифрове число. Утворіть з цифр даного числа найбільше трицифрове число. Чи дорівнює воно даному?...
redridinghood1
26.02.2021 22:12
Программа выдаёт ошибку когда ввожу (11-11 ооо), что делать? program number; var a,b,c:string; x,y,z:integer; begin writeln( Введите номер автомобиля ); readln(a); b:=copy(a,2,3);...
alibaevaalina146
26.02.2021 21:47
ответьте на второй вопрос первый не обязательно...
saruul708
26.02.2021 21:45
Какую новую работу можно выполнять на компьютере в наше время...
AIDA902231
26.02.2021 21:40
Укажите наибольшее целое значение A, при котором выражение (5y-x A)V(2x+3y 90)V(y-2x -50)истинно для любых целых положительных значений x и y2 вариант 2 задача...
NHatynceva
26.02.2021 21:39
Дополните: Bit___Kb__|__Gb___ информатика...
Популярные вопросы
Найти уравнение с наименьшим корнем. x*4=598-90 и придумать к уравненинайти...
1
Как перенести слово рассказ и разделить на слоги...
3
Объясните,что означают записи: nh3 ch4 nho3 h4so4 c6h12o6 p.s как разобрать-где...
2
Вечером солнце увело детей спать, а солнечный зайчик срятался. он решил...
1
Составить алгоритм часто встречающийся в повседневной жизни( чтобы было...
3
Что значит быть гражданином в россии? небольшое сочинение...
1
Решите расстояние от города до посёлка 24 км из города вышел пешеход со...
1
Решите симметрическую систему уравнений: x+y=5, x^2+y^2=13. желательно...
2
На планете шелезяка неделя состоит из нескольких суток, сутки - из нескольких...
2
Назовите все орфограммы служебных частей речи (предлоги, частицы, союзы)....
3
var n,k,t:integer;
begin
read(n,k);
t:=0;
while n>=k do
begin
n:=n-k;
t:=t+1;
end;
writeln(t);
end.