Смотри, надо запомнить несколько операторов в Pascal. Trunc(x) - выводит ближайшее целое, не превышающее x по модулю. Например, вместо 6.66666666667, оператор выведет 6. Важно, чтобы число x было вещественным. Ну а при выводе - целым. Round(x) - округляет число. Например, вместо 6.66666667, оператор выведет 7. Важно, чтобы число x было вещественным. Ну, а при выводе - целым. Int(x) - выводит целую часть числа x. Например, 6.66666667, оператор выведет 6. Число x должно быть целым или вещественным, но при выводе - вещественным.
uses SysUtils; var a, b, h, s:real; begin writeln('Enter a, b and h'); readln(a, b, h); s:=(0.5*(a+b))*h; writeln('Area of the trapezoid=', s); readln; end.
Программа №2.
program НАЗВАНИЕ ПРОГРАММЫ;
{$APPTYPE CONSOLE}
uses SysUtils; var a, b, s:integer; begin writeln('Enter the price and quantity'); readln(a, b); s:=a*b; writeln('Cost of purchase=', s); readln; end.
Программа №3.
program НАЗВАНИЕ ПРОГРАММЫ;
{$APPTYPE CONSOLE}
uses SysUtils; var a, b, w:real; begin writeln('Enter the speed and time'); readln(a, b); w:=a*b; writeln('Way=', w); readln; end.
Вместо "НАЗВАНИЯ ПРОГРАММЫ" напишите название Вашей программы. Так как в некоторых задачах не оговорено, что числа целые или нет, я выбрал на всякий случай вещественный(real).
Trunc(x) - выводит ближайшее целое, не превышающее x по модулю. Например, вместо 6.66666666667, оператор выведет 6. Важно, чтобы число x было вещественным. Ну а при выводе - целым.
Round(x) - округляет число. Например, вместо 6.66666667, оператор выведет 7. Важно, чтобы число x было вещественным. Ну, а при выводе - целым.
Int(x) - выводит целую часть числа x. Например, 6.66666667, оператор выведет 6. Число x должно быть целым или вещественным, но при выводе - вещественным.
Выбирай оператор какой тебе нужен.