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

Answer 2

оу, простите, синьёр

Answer 3

...ита. сеньорита

Answer 4

надеюсь разобрались с кодом :D

Answer 5

вопрос не мой)) но я разобролась))

Answer 6

Учитель сказал ты что вообще сделал....Спасибо урод