uses crt;
Var a,x1,x2:integer;
Begin
x1:=1;
x2:=0;
readln(a);
While a<300 do
Begin
if (a mod 2<>0) then x1:=x1*a;
if (a<0) then x2:=x2+1;
readln(a);
end;
Writeln('Произведение нечётных чисел=', x1);
Writeln('Кол-во отрицательных чисел=' , x2);
readln;
end.
Var a, b: integer;
begin
read(a, b);
writeln(a+b);
writeln(IntToStr(a)+IntToStr(b))
end.
Очень простой пример задачи - вычислить площадь треугольника по трем сторонам (использовать формулу Герона). Исходные данные здесь - это три стороны (например, a, b, c); промежуточное значение - полупериметр p (используется в формуле Герона); итоговое значение S - площадь треугольника.
Var m,d1,d2,dn,k:integer;
begin
write('Вес Винни-Пуха (г): ');
readln(m);
d1:=100; d2:=100;
dn:=100; k:=2;
while dn<=m do
begin
dn:=d1+d2;
d1:=d2;
d2:=dn;
k:=k+1;
end;
writeln('k = ',k,' dn = ',dn);
end.
Пример:
Вес Винни-Пуха (г): 900
k = 7 dn = 1300
Const<span> N </span>= 10;
var
a: array[1..N] of integer;
i: byte;
b: integer;
begin
<span> </span>for<span> i</span>:=1 to<span> N </span>do
<span> </span>read(a[i]);
<span> </span>for<span> i</span>:=1 to<span> N </span>div 2 do begin
<span> b </span>:=<span> a</span>[i];
a[i] :=<span> a</span>[N-i+1];
a[N-i+1] :=<span> b</span>;
<span> </span>end;
<span> </span>for<span> i</span>:=1 to<span> N </span>do
<span> </span>write(a[i],' ');
<span> </span>writeln;
end<span>.</span>