Даны числа x,y и z. Составьте программу, которая возводит в квадрат те из них, которые не отрицательные
5-9 класс
|
var
x, y, z : real;
begin
read (x, y, z);
if (x > 0) then x := sqr (x);
if (y > 0) then y := sqr (y);
if (z > 0) then z := sqr (z);
write (x, ' ', y, ' ', z);
end.
Другие вопросы из категории
1) периметр треугольника равен P. длины двух сторон равны между собой. найти длины сторон.
2) Вводится N целых чисел, найти количество чисел, которые больше нуля и кратны числу 5.
На языке Паскаль(АВС)
m<1:65; 125,5; 458,2; 250.
3)Обьявите переменные p,3- как действительные числа; Word1.
Читайте также
Найти и напечатать те из них, которые при делении на 7 дают остаток 1, 2 или 5.
3)Дано целое число а и натуральное (целое неотрицательное) число n. Вычислить а в степени n, используя в программе лишь операцию умножения.
4)Введите последовательность из n целых чисел. Найти наибольшее из всех отрицательных чисел. Вывести его значение и порядковый номер.
5)Вычислите: 99-97+95-93+91-89+....+7-5+3-1.
6)Доказать (путем перебора возможных значений), что для любых величин А, В, С типа Boolean следующая пара логических выражений имеет одинаковые значения (эквивалентны): A OR (B AND C) и (A OR B) AND (A OR C).
прежним,если это не так. 2)Даны 3 числа, возвести в квадрат те из них, значения которых не отрицательны, а отрицательные оставить без изменений