Даны действительные числа а, b, с. Удвоить эти числа, если а

Даны действительные числа а, b, с. Удвоить эти числа, если а b
с, и поменять их безусловными
значениями, если это не так.

Задать свой вопрос
1 ответ
Var a,b,c:real;a1,b1,c1:integer;d:boolean;beginread(a,b,c);d:=(agt;=b)and(bgt;=c);if d then begina:=a*2; b:=b*2; c:=c*2;Writeln(a,b,c);
endelse begina1:=trunc(a);b1:=trunc(b);c1:=trunc(c); Writeln(a1,b1,c1);end;end.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт