ПАСКАЛЬ!!!! составить алгоритм, находящий остаток от деления одного натур-го числа на другой( диф и мод не использовать)
5-9 класс
|
Можно использовать другие команды? Например Trunc?
Если да, то вот:
var i,j,n:integer;
s:real;
begin
readln(i,j);
s:=i/j;
n:=i-j*Trunc(s); {Функция Trunc выделяет целую часть}
writeln(n);
end.
Если нельзя пользоваться Trunc, то вот другое решение:
var i,j:integer;
s,m:real;
begin
readln(i,j);
m:=i/j;
s:=m;
while s>=1 do s:=s-1;
m:=m-s
;writeln(i-j*m;);
end.
Другие вопросы из категории
сумме этих массивов ; минимальную из соответствующих элементов этих массивов.
Статья, набранная на компьютере, содержит 16 страниц, на каждой странице 35 строк, в каждой строке 64 символа. Определите информационный объём статьи в одной из кодировок Unicode, в которой каждый символ кодируется 16 битами.
Читайте также
кратных числу 3.
2) составьте программу , которая заполняет массив а[1..10 ] случайными целыми числами в диапозоне от 1 до 100 и выводит на экран среднее арифмитическое элементов массива
ПОЖАЛУЙСТА,ХОТЯ БЫ НА ПАСКАЛЕ СОСТАВЬТЕ!
Составить программы для вычисления:
a) Среднего арифметического кубов двух целых чисел m и n.
Ответ дать с точность до трёх знаков после запятой.
б) Дано четырёхзначное число. Найти остаток от деления чисел образованных первыми двумя цифрами и последними двумя цифрами этого числа