var
a: integer;
begin
writeln('Введите число');
readln(a);
if (a mod 2 = 0) then
writeln('Число является четным') else
writeln('Число является нечетным');
end.
Var a: real;
i, k: integer;
begin
readln(k);
for i := 1 to k do
a := sqrt(2 + a);
writeln(a);
<span>end.
Вот так, насколько я понимаю: вычисляем с конца корень из 2, потом к нему прибавляем 2 и опять вычисляем корень... И опять х) В общем, должно получится</span>
Вместо 3,45 нужно написать 3.45 (точка должна быть, а не запятая). И ещё у вас скобок многовато. Это не ошибка, просто лишние скобки загромождают запись.
Var
x, sum: integer;
begin
read(x);
while(x gt; 0) do
begin
if(x mod 10 lt;= 5) then sum := sum + x mod 10;
x := x div 10;
end;
write(sum);
end.