помогите пожалуйста решить задачки на языке паскаль
2) Даны натуральные числа a и b. На интервале от a до b найти все числа, у которых сумма цифр кратна заданному числу k (k вводится с клавиатуры). Если таких чисел нет, то выдать об этом сообщение. Задать процедуру определения суммы цифр числа.
5) Дана последовательность символов (строка). Словом текста является последовательность цифр и букв алфавита (латинского). Слова отделены одним и более пробелами. Найти и вывести все слова, в которых все символы являются цифрами.
var a,b, k, i, sum,y1: integer; procedure proverka (x,k1:integer; var y:integer); var str1:string; i,sum, chislo, error:integer; begin y:=0; sum:=0; str(x,str1); for i:=1 to length(str1) do begin val (str1[i], chislo, error); sum:=sum+chislo; end; if sum=k1 then y:=1; end; begin readln(a,b,k); for i:=a to b do begin proverka (i,k,y1); if y1=1 then write (' ',i); end; end.
