SELECT командасын қолдану сипаттамасы - вопрос №18342909 от cystan98 21.01.2023 23:14

Question

Информатика: SELECT командасын қолдану сипаттамасы

cystan98 · Answer

program raf105;

var

A: real;

x: integer;

begin

write('Введите число в битах: ');

readln(A);

writeln('1. Байт');

writeln('2. Килобайт');

writeln('3. Магабайт');

writeln('4. Гигабайт');

write('Введите номер единицы, в которую нужно перевести: ');

readln(x);

if x=1 then writeln(A/8,' байт')

else if x=2 then writeln(A/8000,' кб.')

else if x=3 then writeln(A/8000000,' мб.')

else if x=4 then writeln(A/8000000000,' гб.')

else writeln('Ошибка');

end.

PascalABC 3.4.2