B=0k=0a=list(input("Введите число"))c=''a.reverse()for i in range(len(a)): c=str(c)+str(a[i])for i in range(len(a)): if int(a[i])%2==0: k+=1 else: b+=1print('Число четных цифр',k)print('Число нечетных цифр',b)print(c)
Var x,y:real;beginx:= 0.1;writeln('x ':6,' y':6);while x<0.7 dobeginy:= 2*Sin(x);writeln(x :6, y:9:3);x:= x + 0.1;end;<span>end.</span>
Вот в таком виде работает, чуть поправил список
в операторах writeln
program example;
var
t,n:integer;
begin
n:=1;
t:=3;
writeln('t','n':6);
while t<26 do
begin
n:=n+2;
writeln(t,n:6);
t:=t+3
end
end.
t n
3 3
6 5
9 7
12 9
15 11
18 13
21 15
24 17
{1 способ (с функцией)}
Program n1;
function Dlina(x1,y1,x2,y2: integer):real;
var d: real;
begin
d:= sqrt(sqr(y1-y2)+sqr(x1-x2));
Dlina:=d;
end;
var xa,ya,xb,yb,xc,yc: integer;
ab,bc,ca,S,p: real;
begin
writeln ('введите коорд. вершины A ');
readln (xa,ya);
writeln ('введите коорд. вершины B ');
readln (xb,yb);
writeln ('введите коорд. вершины C ');
readln (xc,yc);
ab:=Dlina(xa,ya,xb,yb);
bc:=Dlina(xb,yb,xc,yc);
ca:=Dlina(xc,yc,xa,ya);
p:=(ab+bc+ca)/2;
S:=sqrt(p*(p-ab)*(p-bc)*(p-ca));
writeln('площадь : ',S);
end.
{2 способ(с процедурой)}
program n2;
var x1,x2,x3,y1,y2,y3,s,a,b,c,p:real;
procedure dlina(q,w,e,r:real; var d:real);
begin
d:=sqrt(sqr(q-w)+sqr(e-r));
end;
begin
writeln ('введите коорд. вершины A ');
readln (x1,y1);
writeln ('введите коорд. вершины B ');
readln (x2,y2);
writeln ('введите коорд. вершины C ');
readln (x3,y3);
dlina(x1,x2,y1,y2,a);
dlina(x2,x3,y2,y3,b);
dlina(x3,x1,y3,y1,c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('площадь: ',s);
end.
Первая:
program qwer;
uses crt;
var pr: double;
i, a: integer;
Begin
write('Введите число а: ');
readln(a);
pr := 1;
for i := a to 20 do
pr := pr * i;
writeln(pr);
End.
Вторая:
program qwer;
uses crt;
var i: integer;
Begin
for i := 20 to 50 do
if (i mod 3 = 0) and (i mod 5 <>0) then writeln(i);
End.