|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Закрывается окно консоли, Delphi 7
Код:
program Project2; {$APPTYPE CONSOLE} uses SysUtils; var a, b, x, S, Q: real; begin writeln('Enter a, b, x'); read(a, b, x); S:= a + b + x; Q:= a * b * x; writeln('S = ', S:8:3, ', Q = ', Q:8:3); readln; end. |