Помогите очень нужно)
5-9 класс
|
Имеются переменные x,y,z для положительных чисел вывести удвоенное произведение для отрицательных в квадрат
var
x,y,z:integer;
begin
write('X = ');
readln(x);
write('Y = ');
readln(y);
write('Z = ');
readln(z);
if x>0 then x:=2*(x*x) else x:=sqr(-1*x);
if y>0 then y:=2*(y*y) else y:=sqr(-1*y);
if x>0 then z:=2*(z*z) else z:=sqr(-1*z);
writeln('X = ',x,' Y = ',y,' Z = ',z);
end.
Другие вопросы из категории
изучают 18 человек. Сколько всего учеников в классе? Решите задачу с помощью кругов Эйлера
сообщения использовался 4-х символьный алфавит
Читайте также
.
а)ночь-?-?-?-?-?-день
б)рота-?-?-?-?-?-полк
в)бант-?-?-?-?-?-коса
г)бег-?-?-?-?-?-?-?-шаг
д)море-?-?-?-?-?-?-суша
е)миг-?-?-?-?-?-?-?-век
помогите очень нужно,учительница ужасно строгая ненавидит меня помогите!
вычислить периметр.
2) Последовательно вводится N целых чисел найти кол-во равных нулю.
помогите очень нужно!
В строке символов определить кол-во букв А.
Нужно составить программу на Паскале))
Имеются переменые x,y,z для положительных чисел вывести удвоеное произведение для отрицательных в квадрат