сервис вопросов и ответовДаны 3 числа. Возведите в квадрат те из них значения которых отрицательны. (записать программу на языке паскаль).
5-9 класс|
|
Danilka24
04 авг. 2013 г., 6:32:28 (10 лет назад)
Gkinarejkina
04 авг. 2013 г., 8:18:54 (10 лет назад)
var a,b,c:longint;
begin
read(a,b,c);
if a<0 then
a:=sqr(a);
if b<0 then
b:=sqr(b);
if c<0 then
c:=sqr(c);
write(a,' ',b,' ',c);
end.
StanislavPetrov200
04 авг. 2013 г., 9:20:12 (10 лет назад)
var a,b,c:integer;
begin
readln(a,b,c);
if a < 0 then a:=a*a;
if b < 0 then b:=b*b;
if c < 0 then c:=c*c;
writeln(a,b,c);
end.
Ответить
Другие вопросы из категории
Читайте также
ПОМОГИТЕ ПОЖАЛУЙСТА С ДВУМЯ ЗАДАЧАМИ НА ЯЗЫКЕ PASCAL: 1)даны 2 числа, заменить второе число нулем, если оно не меньше первого и оставить его
прежним,если это не так. 2)Даны 3 числа, возвести в квадрат те из них, значения которых не отрицательны, а отрицательные оставить без изменений
Даны три действительных числа. Возвести в квадрат те из них, значения которых неотрицательны, и в четвертую степень - отрицательные. Писать
нужно на паскале.
Помогите, пожалуйста, очень нужно! Срочно!:( 1) Не используя функцию возведения в квадрат, напишите на языке Паскаль наиболее короткие алгоритмы
вычисления: а) y=x^10 б) y=x^15. Постараться использовать минимальное количество дополнительных переменных. 2) Дана сторона равностороннего треугольника. Найти площадь этого треугольника, его высоты, радиусы вписанной и описанной окружностей. Программу записать на языке Паскаль. 3) Дана величина А, выражающая объём информации в байтах. Перевести А в более крупные единицы измерения информации. Программу записать на языке Паскаль
Вы находитесь на странице вопроса "Даны 3 числа. Возведите в квадрат те из них значения которых отрицательны. (записать программу на языке паскаль).", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.