Составьте программу, определяющую остаток от деления числа А на ...
Составьте программу, определяющую остаток от деления числа А на число В. Составьте программу, заменяющую большее из двух данных чисел модулем суммы, а меньшее – модулем полуразности этих чисел.(PASCAL)
Есть ответ
18.12.2022
121
Ответ
1. program ostatok;
uses crt;
var a,b,ost:real;
begin
write('a= ');
readln(a);
write('b= );
readln(b);
ost:=a mod b;
write('ostatok ot delenia A na B raven ',ost);
readln;
end.
2. program modul;
uses crt;
var a,b,c,d: real;
begin
write('a= ');
readln(a);
write('b= );
readln(b);
c:=a-b;
if c>0 then
begin
a:=abs(a+b);
b:=abs((a-b)/2);
write('a= ',a,'b= ',b);
end
else
b:=abs(a+b);
a:=abs((b-a)/2);
write('a= ',a,'b= ',b);
end;
readln;
end.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
18.12.2022