Здравствуйте, помогите написать код к задаче на делфи. Задача: Надано два числа A и Y. Если А больше Y то вычеслить х=А/100, если А меньше Y то вычеслить К=100|A|
Здравствуйте, помогите написать код к задаче на делфи. Задача: Надано два числа A и Y. Если А>Y то вычеслить х=А/100, если А
Ответ(ы) на вопрос:
Гость
так понимаю, консольный Delphi - это Pascal?)
var x, y, a, k: real;
begin
readln(a, y);
if (a > y) then
begin
x := a / 100;
writeln(x);
end;
if (a < y) then
begin
k := 100 * abs(a);
writeln(k);
end;
end.
Не нашли ответ?
Похожие вопросы