uses Crt;
const n=10;
Type Mas=array [1..n] of integer;
var P, M: Mas;
i: integer;
begin
ClrScr;
for i:=1 to n do
P[i]:=10+random(20);
for i:= 1 to n do
Write (P[i]:4);
WriteLn; WriteLn;
for i:=1 to n do
if (i mod 2 = 0) then M[i]:=i*P[i] else M[i]:=-1*P[i];
for i:=1 to n do
Write (M[i]:4);
ReadLn;
end.
нач
алг
нц 5 раз
сместиться(0,1);
сместиться на (-1,4);
сместиться на (3,-6);
кц
кон
Возможны какие либо недочеты, думаю сам сможешь подправить ;)
что то типо такого??? напишите пожалуйста нормально или фото.
var x,y:integer;
begin cls;
read(x,y);
if x = y then
write(x)
else if x > y then x:=x-y else y:=y-x;
readln;
end.
program T;
const Pi = 3.14;
var C, R, S: real;
begin
writeln('Введите Радиус:');
readln(R);
C:= 2*Pi*R;
S:= Pi*sqr(R);
writeln('C = ', C, ', S = ', S);
end.
Немного не уверен в const, т.к. не пользуюсь этим, но поиграй там: поставь двоеточие, если не сработает. А так программа должна, в принципе работать. Только одно НО: у тебя неправильно на счёт integer, так как число пи - не целое, и программа выдаст ошибку.
Program pr;
Var G,H,x,y,z:real;
Begin
x:=2.367;
y:=-1.057;
z:=3.025;
G:=(2*sin(x-2*3.14/3))/(1/2+(cos(y)*cos(y)));
H:=1+(exp(5*ln(z))/3+(exp(5*ln(z))/5));
Writeln('G=',G);
Writeln('H=',H);
end.