)даны два неравных числа a и b.меньшее из этих чисел заменить полуссумой a и b а большее их полуразность..

Витаминка111118 Витаминка111118    3   29.05.2019 06:30    0

Ответы
NikichRUS25 NikichRUS25  27.06.2020 13:20
Program qwertr;
var a,b,c: integer;
begin 
read (a,b)
if (a<b) then
begin 
c:=(a+b)/2;
end;
else
c:=(a-b)/2;
end;
write (c);
end.
ПОКАЗАТЬ ОТВЕТЫ
casio007001 casio007001  27.06.2020 13:20
uses crt;
var a, b, c, i :integer;
begin
   clrscr;
   writeln ('Введите числа');
   readln (a, b);if a>b then
      writeln ('a = ', (a-b)/2:0:10, ' b = ', (a+b)/b:0:10);
   if a<b then
      writeln ('b = ', (a+b)/b:0:10, ' a = ', (a-b)/2:0:10);
end.

P.S. Надеюсь на благодарность и лучший ответ.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика