Составьте программу, определяющую остаток от деления числа а на число в. составьте программу, заменяющую большее из двух данных чисел модулем суммы, а меньшее – модулем полуразности этих чисел.(pascal)
269
355
Ответы на вопрос:
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.
Популярно: Информатика
-
solodkin197810.06.2020 20:20
-
Картошка16014.03.2023 01:55
-
Sakinatabdylaeva20.04.2020 17:17
-
Оператор228802.07.2020 05:59
-
kimas9806.01.2022 00:56
-
duyquhuseynli1116.05.2023 14:15
-
Св5529.04.2022 18:53
-
tomakor27.03.2022 21:22
-
srente26.08.2022 21:37
-
ученик6бкласса02.10.2022 04:19