Имена участников (разделяйте запятой).
Тема в разделе "Информатика", создана пользователем volya, 11 мар 2010.
Даны два неравных числа C и D число D заменить частными этих чисел, если C больше числа D на5
Var c,d,a:real; begin read(c,d); if c-d=5 then do begin a:=c/d; d:=d/с; write (a,d); end; end.