Question

Написать программу для вычисления объема куба по введённой длине ребра. Если введеное число меньше либо равно нулю то сообщить об жтой ошибке пользователю. Обязателен диалог компьютера с пользователем! " Здравствуйте! Вас приветствует программа для расчета ... Введите целое/дробное число... Результат: ... куб.см."

Answer 1

var a: real; begin   Write('Здраствуйте я умею считать объем кубика! Введите длину ребра: ');     while true do   begin     Read(a);     if a < 0 then Writeln('Меньше нуля, серьезно? Попробуй еще раз: ');     if a = 0 then Writeln('Ноль, серьезно? Попробуй еще раз: ');     if a > 0 then break;   end;     Writeln('Объем кубика равен ' + a*a*a);   Writeln('Пока! :)'); end.

f54b48b57cb82d93901a23bab7e1d8ab.pas