Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Все лабораторные работы по паскалю / 8 лаб. Модульное программирование / Program3
.pas uses crt,modul03;
var s,c:string;
num: real;
begin
write('Введите число: ');
readln(s); truefloat(s); writeln('Откорекстированное число: ',s);
write('Введите число: ');
readln(s); trueint(s);
readln
end.
var s,c:string;
num: real;
begin
write('Введите число: ');
readln(s); truefloat(s); writeln('Откорекстированное число: ',s);
write('Введите число: ');
readln(s); trueint(s);
readln
end.
Соседние файлы в папке 8 лаб. Модульное программирование