Даны 3 действительных числа, возвести в куб те из них значения которые отрицательны. Написать программу (в паскале).
5-9 класс
|
LKmoster
08 марта 2015 г., 20:35:25 (9 лет назад)
PIG111
08 марта 2015 г., 22:00:52 (9 лет назад)
Program chisla;
var a, b, c: real;
begin
writeln ('Введите 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.
Это так, просто расписывая оО
Ответить
Другие вопросы из категории
Читайте также
ПОМОГИТЕ ПОЖАЛУЙСТА С ДВУМЯ ЗАДАЧАМИ НА ЯЗЫКЕ PASCAL: 1)даны 2 числа, заменить второе число нулем, если оно не меньше первого и оставить его
прежним,если это не так. 2)Даны 3 числа, возвести в квадрат те из них, значения которых не отрицательны, а отрицательные оставить без изменений
Даны три действительных числа. Возвести в квадрат те из них, значения которых неотрицательны, и в четвертую степень - отрицательные. Писать
нужно на паскале.
Вы находитесь на странице вопроса "Даны 3 действительных числа, возвести в куб те из них значения которые отрицательны. Написать программу (в паскале).", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.