даны два положительних числа а и b.не применяя операции деления найти остаток от деления а на b
5-9 класс
|
uses crt;
var a,b,c,i:integer;
begin
write('a='); readln(a);
write('b='); readln(b);
i:=1;
while c<a do
begin
c:=b*i;
i:=i+1;
end;
c:=c-b;
writeln('остаток(a:b)=',a-c);
end.
Другие вопросы из категории
Читайте также
Входные данные: ввести два целых числа А,В (1 <=А,В<=10).
Входные данные: вывести произведение всех целых чисел от А до В включительно.
желательно сделайте в таблице
помощи if и then.else!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!1помогите срочно
этих двух чисел заменить половиной их суммы, а большее — их удвоенным произведением.
2)Даны вещественные числа х и у, не равные друг другу. Меньшее из этих двух чисел заменить половиной их суммы, а большее — их удвоенным произведением.
вывести 0.
С выводом минимального положительного числа у меня вроде бы получилось, а вот с проверкой на отрицательность не вышло