Электрон разгоняется электрическим полем с разностью потенциалов 100в чему равна конечная скорость электрона если начальная скорость 5 мм.с

1) var a: string;     i, o: integer;     p: real; begin       readln(o);       a : = inttostr(o);       for i : = 1 to length(a) do         p : = p + strtoint(a[i]);       if (sqr(o) = p*p*p) then writeln('true')         else writeln('false'); end.2)var a: string;     i, o, p: integer; begin      readln(o);       a : = inttostr(o);       for i : = 1 to length(a) do        p : = p + strtoint(a[i]);       if (p mod 3 = 0) then writeln('true')        else writeln('false'); end.3)var a, b, c: real; begin      readln(a, b, c);       if ((a = b) and (b = c)) then writeln('true')        else writeln('false'); end.всё проверено, удачи: )

Const m=5; n=4; var a: array[1..m,1..n] of integer; i,j,max: integer; begin   randomize;   for i: =1 to m do     for j: =1 to n do a[i,j]: =random(201)-100;   max: =0;   for i: =1 to m do     for j: =1 to n do       if a[i,j]< max then max: =a[i,j];   if max=0 then writeln('в матрице нет отрицательных элементов.')   else a[(m div 2)+1,(n div 2)+1]: =max;   for i: =1 to m do         //вывод матрицы. необязательно.     begin     for j: =1 to n do write(a[i,j]: 4);     writeln;     end; end.