Дано натуральное четырехзначное число n. найти сумму его цифр.

var a,b,c,d,x,res: integer;

begin

readln(x);

a: =x div 1000;

b: =x mod 10;

c: =x div 100 mod 10;

d: =x mod 100 div 10;

res: =a+b+c+d;

writeln(res);

readln;

end.

 

паскаль же?

var s, x: string; c, n, err, i, d, k: integer; begin readln (s); n: =length(s); for i: =1 to n do begin

d: =d+k;

val(s,k,err);

end;

write (d);

end.

Вцелом программа рабочая, за исключением одного маленького блока, т.к. не могу прописать условие нормально: с я указала комментарии к частям кода, в том числе и к тому самому блоку. если кто знает, как его составить - отпишитесь: ) const n=5; function prime(a: integer): boolean; //функция определяет, является ли число простым var i,n: integer; begin prime: =false; if (a< 2) then exit; if (not odd(a)) and (a< > 2) then exit; for i: =3 to trunc(sqrt(a)) do begin if a mod i = 0 then exit; inc(i,2); end; prime: =true; end; var a,b,c: array[1..n] of integer; i,j,p,min,max: integer; begin for i: =1 to n do a[i]: =random(10); //заполняем массив write('исходный массив: '); for i: =1 to n do write(a[i]: 5); //выводим массив на экран writeln; min: =a[1]; max: =a[1]; //ищем минимальное и максимальное значение for i: =1 to n do if (a[i]> max) then max: =a[i]; for i: =1 to n do if (a[i]< min) then min: =a[i]; write('минимальное: ',min,' максимальное: ',max); //выводим эти значения на экран writeln; for i: =1 to n do if (prime(a[i])) or (a[i]=1) and (a[i]< > 2) then //заполняем массив с простыми числами, которые входят в массив а c[i]: =a[i]; write('простые числа в массиве а: '); for i: =1 to n do write(c[i]: 5); //выводим массив с на экран writeln; j: =min; //  весь вопрос в этом небольшом  блоке, заполнить массив в числами от min до max(которые уже найдены), не входящими в массив с for i: =1 to n do begin if (prime(j)) and (j< > c[i]) and (j< > 2) then b[i]: =j; inc(j); end; for i: =n-1 downto 1 do begin //сортируем по возрастанию for j: =1 to i do if (b[j]> =b[j+1]) then begin p: =b[i]; b[i]: =b[i+1]; b[i+1]: =p; end; end; write('искомый массив: '); for i: =1 to n do write(b[i]: 5); //выводим массив в на экран writeln; end.