Напишите программу поиска трехзначных чисел, таких, что сумма трех цифр на которые оканчивается квадрат этого числа, равняется этому числу.

program qwerty; uses crt; var a: real; beginclrscr; writeln('введите количество миль'); readln(a); a: = a*1.6; writeln('кол-во киллометров - ',a: 2: 2); readkey; end.

в си:

# include < stdio.h> # include < conio.h> void main ()  {

    clrscr();

    int x,y,c,k;

    printf("vvedite x \n");  

    scanf("%d",& x);

    printf("vvedite y \n");  

    scanf("%d",& y);

    printf("vvedite c \n");  

    scanf("%d",& c);

    k=x+(y/(2*c));

    printf("otvet: %d \n",k);

    getch();

  }

                                                              алгоритм перехода улицы по свотофору

1.посмотреть какой цвет на светофоре

2.если зеленый то посмотреть направо 

3.посмотреть налево

4.если машын нету, то начать переходить

5.дойти до островка и снова  посмотреть направо и налево и перейти дорогу

                                                                  алгоритм посадки дерева

1.взять лопату и выкопать ямку, положыть лопату

2.взять садженец и поставить его в ямку

3.взять ведро и полить садженец, положыть ведро

4.взять лопату и закопать садженец, положыть лопату

5.взять ведро и полить садженец, положить ведро

var a: integer;

begin readln(a); if (4 * a > 9) and (4 * a < 100) then writeln('периметр двузначное число') else writeln('периметр не двузначное число'); end.