Https://www.pressofatlanticcity.com/calendar/watch-365-dni-365-days-2020-full-movie-online-free-hd--123movies/event_e7163fe2-8faf-11ea-973e-3b124935cea9.html - id1245562020211220 от jullii55 20.12.2021 09:20

Question

Информатика: Https://www.pressofatlanticcity.com/calendar/watch-365-dni-365-days-2020-full-movie-online-free-hd--123movies/event_e7163fe2-8faf-11ea-973e-3b124935cea9.html https://www.pressofatlanticcity.com/calendar/123movies-watch-365-dni-365-days-2020-online-full-movie/event_e79f94c2-8faf-11ea-94aa-308d99b28df7.html https://www.pressofatlanticcity.com/calendar/watch-365-dni-365-days-2020-hd-online-full-movie-free/event_e887d2c8-8faf-11ea-98ef-308d99b27d1b.html https://www.pressofatlanticcity.com/calendar/watch-365-dni-365-days-hd-2020-full-movie-online-free--123movies/event_ea07a650-8faf-11ea-8b08-cf1b4fec08ca.html

jullii55 · Accepted Answer

program cube; var a : real; begin writeln( Программа вычисляет объем куба и площадь + его боковой поверхности по длине ребра ); {I - ввод + ЗОД} repeat write( Введите длину ребра куба ); readln(a); if a =0 then writeln( Ошибка! Длина ребра не может быть нулевой или отрицательной. + Повторите ввод. ); until a 0; {II, III - расчет и вывод} writeln( Длина ребра куба = ,a:8:3, м ); writeln( Объем этого куба = , (a*a*a):8:3, м^3 ); writeln( А площадь его боковой поверхности = , (6*a*a):8:3, м^2 ); writeln(...

MOGZ ответил