Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Все лабораторные работы по паскалю / 1 лаб. Арифметические операции / labrab01
.pas program labrab01;
uses crt;
var a,b: real;
begin
clrscr;
write( ' Введите первое число : ') ;
read(a);
write( ' Введите второе число : ') ;
read(b);
writeln( ' a+b=', a+b) ;
writeln( ' a-b=', a+b) ;
writeln( ' a*b=', a+b) ;
writeln( ' a/b=', a+b) ;
readln;
end.
uses crt;
var a,b: real;
begin
clrscr;
write( ' Введите первое число : ') ;
read(a);
write( ' Введите второе число : ') ;
read(b);
writeln( ' a+b=', a+b) ;
writeln( ' a-b=', a+b) ;
writeln( ' a*b=', a+b) ;
writeln( ' a/b=', a+b) ;
readln;
end.
Соседние файлы в папке 1 лаб. Арифметические операции