Дан ряд чисел от 11 до 200. найти произведение чисел , кратных 7, из этого ряда (через pascal)

ответ:

var

    a1, a2, a3: integer;

 

begin

    write ('введите три числа: ');

    readln (a1, a2, a3);

 

    if ((a1 > a2) and (a1 < a3)) or ((a1 < a2) and (a1 > a3)) then

        writeln(a1)

    else

        if ((a2 > a1) and (a2 < a3)) or ((a2 < a1) and (a2 > a3)) then

            writeln(a2)

        else

            writeln(a3);

 

end.

объяснение:

Первый компьютер и был, и не был. не был потому, что его автор  чарльз бэббиджне смог его построить: в то время (он начал свою работу в 1834 году) подобная машина могла быть только механической. но точность изготовлении деталей была слишком высока по их меркам. поэтому финансирование проекта прекратилась. но все же первый компьютер был - не осуществленный, но продуманный до мелочей и тщательно вычерченный. кроме чертежей, осталась еще и подробное словесное описание, составленной сотрудницей  бэббиджа августой адой лавлейс, разработанная ею язык программирования и несколько первых в программ (перфокарты, машина бэббиджа была способна выполнять программы). его основные части были теми же, что и в каждом современном компьютере: устройства ввода данных (клавиатура); запоминающее устройство, способное хранить исходные данные; арифметическое устройство +,·,: ); устройство для вывода результата.