Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Лб инф передел / Pascal / Лабораторные по информатике / Лб 3.1 / Соловаров ИС-148 отчёт по Л.Б. 3.1. вар. 10
.pas Program LabRab4;
Var n,c:real;
Begin
Writeln('Введите');Readln(N);
C:=(2*n-1);
If ('!!>1') and ('!!<11')
Writeln ('N=',N:8:6);
End.
Var n,c:real;
Begin
Writeln('Введите');Readln(N);
C:=(2*n-1);
If ('!!>1') and ('!!<11')
Writeln ('N=',N:8:6);
End.
Соседние файлы в папке Лб 3.1