Добавил:
Studfiles2
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Курсовая работа2 / Examples / Arithm2
.pas var
a: integer;
b: integer;
c: real;
d: real;
begin
Write('Enter a (integer): ');
read(a);
Write('Enter b (integer): ');
read(b);
writeln;
c := (a + 5)*6/(5+5) + b;
write('c := (a + 5)*6/(5+5) + b;');
writeln;
write('c = ');
write(c);
end.
a: integer;
b: integer;
c: real;
d: real;
begin
Write('Enter a (integer): ');
read(a);
Write('Enter b (integer): ');
read(b);
writeln;
c := (a + 5)*6/(5+5) + b;
write('c := (a + 5)*6/(5+5) + b;');
writeln;
write('c = ');
write(c);
end.
Соседние файлы в папке Examples