Еж-ежик......................
var
i, s: byte;
begin
<em>for i := 2 to 10 do</em>
<em> s += i;</em>
writeln(s);
<span>end.</span>
Var a,b,c:integer;
begin
readln(a,b,c);
if (a<=b) and (b<=c) then
begin
a:=a*a;
b:=b*b;
c:=c*c;
end
else if (a>b) and (b>c) then
begin
if a<b then a:=b;
if a<c then a:=c;
b:=a; c:=a;
end
else
begin
a:=a*(-1);
b:=b*(-1);
c:=c*(-1)
end;
writeln(a:4, b:4, c:4);
<span>end.</span>
#include <iostream>
using namespace std;
int main()
{<span>
int zap=0;
max=0;
mas[30];</span><span>
int i;</span><span>
for(i=0; i<30; i++)</span><span> cin >> mas[i];</span>
<span> for(i=0; i<30; i++)</span><span>
if(max<mas[i] && mas[i]%3==0 && mas[i]%5==0)
{</span><span> max=mas[i];</span><span> zap=i;</span><span> }</span>
<span> cout << "max :" << max << "nomer :" << zap << '\n';</span><span>
system("pause>>null");</span><span>
return 0;
</span><span>}</span>
Исполнитель алгоритма - это система выполняющая действия заданное алгоритмом:)))