Составить программу, которая подсчитывает общее количество целых пятизначных чисел, составленных из различных цифр, которые тем свойством, что число, образованное первыми двумя цифрами, будучи умноженным на среднюю цифру, даёт число, образованное последними двумя цифрами. например, число: 12896: 12*8=96, значит число подходит.

Var   i, n, a, b, c: longint; begin   n : = 0;   for i : = 10000 to 99999 do   begin       a : = i div 1000;       b : = (i div 100) mod 10;       c : = i mod 100;       if a * b = c then n : = n + 1   end;   writeln('найдено чисел: ', n) end. результат работы программы: найдено чисел: 286

1. в школах всегда говорят, что лучший пример алгоритма - какой-нибудь кулинарный рецепт. линейный алгоритм приготовления колобка. колобок картофельный картофель (1,2 кг) ; яйца (2 шт.) ; мука пшеничная (100 г) ; сухари (60 г) ; жир для жарки (200 г) . в протертый отварной картофель добавить 3 столовые ложки муки, желтки двух яиц. хорошо перемешать, посолить и сформировать шарики. (от себя: для пикантности можно добавить мелко нарезанную копченую колбаску или ветчину) . полученные шарики запанировать в муке, смочить во взбитых белках и обвалять в сухарях. жарить в кипящем масле до готовности. можно еще по сусекам поскрести ; ) 2. ветвление. сказку не помню, позор мне. что-то про илью муромца. вот где он стоял на распутье и выбирал дороги: направо пойдешь коня потеряешь, прямо пойдешь голову потеряешь, налево пойдешь и коня и голову потеряешь

  program z;

uses crt;

var x,y,z: real;

begin

    clrscr;

    write('введите х: ');

    readln(x);

    write('введите y: ');

    readln(y);

    if (x< 0)   and (x> y) then z: =x;

    if (x< 0)    and (x< y) then z: =y;          

 

    if (x> =0) then z: =(x+y)/2;

    writeln('z=',z);

    readkey;

 

end.