Написать программу вычисления суммы всех 3-х значных чисел, у которых сумма цифр кратно числу а.нахождения суммы цифр 3х значного числа написать подпрограмму. ( с функцией) i = от 100 до 999 i=326 x = i div 100 y=i div 10 mod 10 z= i mod 10 s= x+y+z 2)определить значение переменной после выполнения фрагмента алгоритма: s: =24; m: =3456; while s> 10 do begin m: =m mod 10; s: =s-m end; s: =s+m; write(m); мне нужно именно решение, а не тупо !

Function t1(b: integer): integer; begin t1: =b mod 10 +(b div 10)mod 10+((b div 10)div 10)mod 10; end; var i,a,s: integer; begin s: =0; for i: =100 to 999 do   if t1(i) mod 3 =0   then s: =s+t1(i); writeln(s); end.

Исправленная программа: program lab5; const n=11; type masiv=array[1..n]of integer; var l,k,m: masiv; i: integer; procedure vivod(mas: masiv); var i: integer; begin for i: =1 to n do write(mas[i],' '); writeln; end; procedure new_mas(var mas: masiv); var i,j: byte; min: integer; begin j: =1; min: =mas[1]; for i: =2 to n do if (min> mas[i]) then   begin   min: =mas[i]; j: =i;   end; writeln('min = ',min); mas[j]: =mas[1]; mas[1]: =min; end; begin writeln('дано: '); randomize; for i: =1 to n do   begin   l[i]: =random(-56,40);   k[i]: =random(-56,40);   end; write('массив l[',n,']: '); vivod(l); new_mas(l); write('измененный массив l[',n,']: '); vivod(l); write('массив k [',n,']: '); vivod(k); new_mas(k);   write('измененный массив k[',n,']: '); vivod(k); for i: =1 to n do m[i]: =l[i]+k[i]; write('массив m[',n,']: '); vivod(m); end. пример: дано: массив l[11]: 4 -34 -2 3 -53 -53 38 1 -33 -3 11  min = -53 измененный массив l[11]: -53 -34 -2 3 4 -53 38 1 -33 -3 11  массив k [11]: -43 -18 -8 -9 34 -34 -49 40 -47 -22 9  min = -49 измененный массив k[11]: -49 -18 -8 -9 34 -34 -43 40 -47 -22 9  массив m[11]: -102 -52 -10 -6 38 -87 -5 41 -80 -25 20 

Жили были кот и собака. однажды кот поймал ворону. пёс говорит -- дай покушать! -- кот отвечает -- нет слови сам и ешь! -- пёс обиделся и пошёл ловить птиц. поймал штук 10 и пошёл в дом. кот видит пёс птиц наловил, и начал просить -- дай покушать! -- пёс отвечает -- нет налови сам, и ешь! -- кот пошёл ловить птиц да не может поймать их! ловил ловил пришёл домой без добычи, обидно ему пёс кушает а он нет. кот попросил прощение. пёс ему и говорит -- хорошо прощу только ты делись со всеми, и они будут с тобой делиться.