var
N, V, K, T: real;
i: Integer;
begin
Write ('Сумма вклада: ');
ReadLn (N);
Write ('Стоимость велосипеда: ');
ReadLn (V);
Write ('Стоимость подержанного авто: ');
ReadLn (K);
Write ('Стоимость нового авто: ');
ReadLn (T);
for i := 1 to 10 do
N := N * 1.07;
Writeln ('Сумма вклада в конце срока = ' + FloatToStr (N));
if N >= T then
Writeln ('На эту сумму можно приобрести новое авто.')
else if N >= K then
Writeln ('На эту сумму можно приобрести подержанное авто')
else if N >= V then
Writeln ('На эту сумму можно приобрести велосипед')
else
Writeln ('На эту сумму нельзя приобрести транспортное средство');
end.
Ячейки, в которых написано "истина" или "ложь" можно потом скрыть. Я их оставил на виду, чтобы легче было понять работу программы
Function f(x: real): real;
begin
f := x * sqr(x) - sin(x)
end;
var
a, b, h, x: real;
begin
Write('Введите через пробел a,b,h: ');
Readln(a, b, h);
x := a;
while x <= b do
begin
Writeln('x=', x:0:3, ', f(x)=', f(x):0:5);
x := x + h
end
end.
Var n,k,i:integer;
y:longint;
begin
readln(n);
k:=1;
y:=1;
for i:=1 to n+1 do begin
y:=y*k;
k:=k+2;
end;
writeln(y);
end.
{ Если в Вашей версии система "ругается" на sign, раскомментируйте
текст определения этой функции. В противном случае удалите все комментарии }
{
function sign(x:real):integer;
begin
if x<0 then sign:=-1
else
if x>0 then sign:=1 else sign:=0
end;
}
var
x1,x2,y1,y2:real;
begin;
Write('Введите через пробел координаты точки 1: ');
Read(x1,y1);
Write('Введите через пробел координаты точки 2: ');
Read(x2,y2);
if (sign(x1)=sign(x2)) and (sign(y1)=sign(y2))
then Writeln('Точки находятся в одной четверти')
else Writeln('Точки находятся в разных четвертях')
end.
<em><u>Тестовое решение:</u></em>
Введите через пробел координаты точки 1: -3.5 8.1
Введите через пробел координаты точки 2: -5 4
Точки находятся в одной четверти