Составить программу - конвертер, которая запрашивает - вопрос №7295013 от Limon4ikShow 10.05.2020 08:56

Question

Информатика: Составить программу - конвертер, которая запрашивает тип единицы измерения времени: 1 - секунда, 2 - минута, 3 - час, 4 - сутки, а также число - значение в этой единице измерения времени и переводит данное число во все остальные единицы измерения времени. ввод чисел заканчивается нажатием клавиши 0. протокол работы программы: выберите тип единицы измерения времени: 1 - секунда, 2 - минута, 3 - час, 4 - сутки, 0 - выход. 1 введите значение этой единицы времени: 3600 ответ: 3600 сек = 60 мин = 1 час

Limon4ikShow · Answer

Var A,R:integer;BeginWriteLn( Выберите тип единицы измерения времени: 1 - секунда, 2 - минута, 3 - час, 4 - сутки, 0 - выход. );ReadLn(R);While R 0 do   Begin   Write( Введите значение этой единицы времени: );   ReadLn(A);   Case R of   1:WriteLn(A, сек = ,(A/60):0:3, мин = ,(A/3600):0:3, ч = ,(A/86400):0:3, сут );   2:WriteLn(A, мин = ,(A/60):0:3, ч = ,(A/1440):0:3, сут = ,A*60, сек );   3:WriteLn(A, ч = ,(A/24):0:3, сут = ,A*3600, сек = ,A*60, мин );   4:WriteLn(A, сут = ,A*24, ч = ,A*1440, мин...