Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Все лабораторные работы по паскалю / 8 лаб. Модульное программирование / Program1
.pas uses crt,modul01;
var s,s1: string;
begin
write('Введите число в восмиричной системе счисления: ');
readln(s);
writeln('Число в двоичной системе счисления: ', octbin(s));
write('Введите число в двоичной системе счисления: ');
readln(s1);
writeln('Число в восмеричной системе счисления: ',binoct(s1));
readln;
end.
var s,s1: string;
begin
write('Введите число в восмиричной системе счисления: ');
readln(s);
writeln('Число в двоичной системе счисления: ', octbin(s));
write('Введите число в двоичной системе счисления: ');
readln(s1);
writeln('Число в восмеричной системе счисления: ',binoct(s1));
readln;
end.
Соседние файлы в папке 8 лаб. Модульное программирование