![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
|
Код:
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. |