Даны 3 действительных числа…

Question

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

Answer 1

59

vadim-mihalchenko

02 марта 2023

Program chisla; var a, b, c: real; beginwriteln ('Введите 1 число'); readln (a); writeln ('Введите 2 число'); readln (b); writeln ('Введите 3 число'); readln (c); if a<0 then a: =a*a*a; if b<0 then b: =b*b*b; if c<0 then c: =c*c*c; writeln (a); writeln (b); writeln (c); end. Это так, просто расписывая оО

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: