написать програму : даны трех действительные числы x y z , если число > 5 то надо его в квадратею зделатью.
10-11 класс
|
var
x,y,z:Extended;
begin
Read(x,y,z);
if x>5 then x:=x*x;
if y>5 then y:=y*y;
if z>5 then z:=z*z;
Write(x,' ',y,' ',z);
end.
Другие вопросы из категории
Читайте также
4)Если целое M делится на целое число NБ то на экран выводится частное от деления,в противном случае выводится сообщение"M на N нацело не делится".
8)Одинаковы ли цифры данного двухзначного числа.
9)является ли сумма цифр двухзначного числа четной.
12)кратна ли числу A сумма цифр двухзначного числа.
14)какая из цифр трехзначного числа больше: первая или вторая.
16) все ли цифры трехзначного числа одинаковые.
а)удвоенное значение числа,если число положительное; б)абсолютное значение числа,если число отрицательное.
2)Напишите программу которая анализирует введенное с клавиатуры число на четность и сообщает о результате.
случае – квадрат второго.
равны,то найдите и выведите удвоенную сумму этих чисел
форму параллелепипеда A, B, C. Вычислить объем детали v, объем тары V, необходимое количество тары N для упаковки деталей количеством K штук. Если N>10, то вычислить отношение объема детали к объему тары .
Помогите пожалуйста написать это В Паскале.