Найдите все трехзначные числа, сумма цифр которых равна данному целому числу.(pascal)

v=331+0.6t

в зимний день- v=331+0.6*(-35)=310 м/с

в летний день- v=331+0.6*30=349 м/с

    1 способ                                             2 способ

х чаек - на первом острове                 х чаек - на первом острове

у чаек - на втором острове                   79-х чаек - на втором острове

х+у=79               х+у=79                         х-15-12=79-х+12

х-15-12=у+12     х-у=39                          2х=118

                        2х=118                           х=59

                        х=59                               79-59=20

                        у=20

ответ: на первом острове 59 чаек, на втором - 20 чаек.

ввод x = 1, y = 3

x = 3 - 1= 2

y = 2 * 2 = 4

x = 2 * 4 + 2 = 10

y = 4 + 10/2 = 9

вывод x = 10, у = 9

ответ. в результате работы программы получим: х = 10, у = 9.

uses crt;

var i,s,a,b,c,ch,o: integer;

begino: =0; writeln(' vvedite chislo ' ); readln(ch); for i: =100 to 999 dobegina: =i div 100; b: =(i div 10) mod 10; c: =i mod 10; if ((a+b+c) = ch) thenbegininc(o); writeln(i); end; end; if o = 0 then writeln('error ! '); readln; end.