Замените первое число нулём, если оно меньше или равно второму, и оставьте числа без изменения в другом случае - Turbo Pascal

Формулировка задачи:

Даны два действительных числа. замените первое число нулём, если оно меньше или равно второму, и оставьте числа без изменения в противном случае. Напишите код программы и составьте блок-схему.

Код к задаче: «Замените первое число нулём, если оно меньше или равно второму, и оставьте числа без изменения в другом случае - Turbo Pascal»

textual
var
  x,y:real;
begin
  write('x,y=');
  readln(x,y);
  if x<=y then x:=0;
  writeln('x=',x:0:4,' y=',y:0:4);
end.

5   голосов, оценка 3.800 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы