N=3 (три цвета прожектора)
i=4 (прожекторы)
A= N^i
A=3^4=81
Var
a, b: integer;
begin
readln(a);
while (inttostr(a).Length > 1) do
begin
b := 0;
foreach c: char in inttostr(a) do
b += strtoint(c);
a := b;
end;
writeln(b);
<span>end.
=======================
var
a, b, e: integer;
d: string;
begin
readln(a);
d := inttostr(a);
while (length(d) > 1) do
begin
d := inttostr(a);
b := 0;
for e := 1 to length(d) do
b += strtoint(d[e]);
a := b;
end;
writeln(b);
<span>end.</span></span>
Билл Геец - общепринятое но ответ сильно зависит от трактовки понятия "компьютер". Первый цифровой компьютер создал немецкий инженер Конрад Цузе в 1938 году
C: = a - b * 2;
Переменную b не обязательно брать в скобки, ибо умножение выполняется первее .
Program Dujm
<span>
</span>
var a,res: real;
<span>
</span>
begin
writeln('Vvedite dlinu v sm');
readln(a);
res:=a/2.5;
writeln(a,' sm v dujmah ravno
',res:5:2);
readln;
end.