Предмет: Информатика,
автор: saint878
Даны действительные числа A, B, C. Проверить, выполняются ли неравенства A<B<C, если да, то, присвоить A=B+C, иначе A=C-B. Напишите как это должно выглядеть в Pascal'е .
Ответы
Автор ответа:
0
Program gt;
var A,B,C:real;
begin
readln(A,B,C);
if(A<B)and(B<C)then A:=B+C else A:=C-B;
writeln(A,' ',B,' ',C);
end.
var A,B,C:real;
begin
readln(A,B,C);
if(A<B)and(B<C)then A:=B+C else A:=C-B;
writeln(A,' ',B,' ',C);
end.
Интересные вопросы
Предмет: Русский язык,
автор: Аноним
Предмет: Математика,
автор: Аноним
Предмет: Математика,
автор: 291111arina
Предмет: Алгебра,
автор: Ksushkoyy
Предмет: Биология,
автор: МальцеваДарья