Мелхиседек
6 год назад
написать программу на языке паскаль. Найдите значение K (значение переменных x,z задайте самостоятельно ).*СРОЧНО НУЖНО НАПИСАТЬ ПРОГРАММУ!!!!!!!*
ОТВЕТЫ
Святослав
Oct 24, 2020
var
k, x, z: real;
begin
readln(x);
readln(z);
if x > z then
k := sqrt(2 * (x - z) / z);
if x <= z then
k := x + z;
println(k);
end.
k, x, z: real;
begin
readln(x);
readln(z);
if x > z then
k := sqrt(2 * (x - z) / z);
if x <= z then
k := x + z;
println(k);
end.
482
Смежные вопросы:
