Задание:
Здравствуйте, помогите написать код к задаче на делфи. Задача: Надано два числа 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.
Знаете другой ответ?