Составить блок схему для задачи:
Дано трехзначное число. Найти сумму и произведение его цифр.
Ввести трехзначное число А = …
Цифра сотен равна ….
Цифра десяток равна ….
Цифра единиц равна ….
Сумма цифр равно …
Произведение цифр равно …

Объяснение:

На сегодняшний день принято считать что существует 5 поколений ЭВМ.

I поколение было собрано на электронных лампах, соединенных проводами, ЭВМ занимала целое здание, имела быстродействие 10-20 тыс операций в секунду.

II поколение - была собрана на полупроводниковых элементах (диодах и транзисторах) размещенных на печатных платах с использованием навесного монтажа. ЭВМ размещалась в машинном зале и имела быстродействие от 100 тыс до 500 тыс операций в секунду.

III поколение - ЭВМ собрана на интегральных схемах, изготовленных в едином процессе на кремниевых пластинах. ЭВМ занимала большую комнату и имела быстродействие от 1 млн до 10 млн операций в секунду.

IV поколение - в ЭВМ используются большие интегральные схемы и микропроцессоры изготовленные в едином технологическом процессе, и включающие в себя сотни тысяч транзисторов в одной схеме. Появляются персональные ЭВМ - PC и ноутбуки занимающие объем небольшого чемоданчика. Быстродействие от 10 млн до 100 млн операций в секунду.

V поколение ЭВМ не имеет точного определения на сегодняшний день. Предполагается что ЭВМ пятого поколения будут построены на сверхбольших интегральных схемах, работать на принципах искусственного интеллекта, квантовых эффектах с использованием достижений оптоэлектроники

1)
var
    a1, a2, b1, b2, c, i, n: integer;
    s: array [1..100] of integer;

begin
    read(n);
    for i := 1 to n do
    begin
        s[i] := random(100);
        if s[i] < 50 then
        begin
            a1 := a1 + s[i];
            a2 := a2 + 1;
        end;
        if s[i] >= 50 then
        begin
            b1 := b1 + s[i];
            b2 := b2 + 1;
        end;
        
    end;
    writeln(a1 / a2:0:3, ' ', b1 / b2:0:3);
end.

2)
var
    i, n: integer;
    f: boolean;
    s: array [1..100] of integer;

begin
    read(n);
    for i := 1 to n do
        s[i] := random(5);
    
    f := false;
    for i := 1 to n - 1 do
        f := f or (s[i] = s[i + 1]);
    
    writeln(f);
end.

3)
var
    k, t,  i, n: integer;
    s: array [1..100] of integer;

begin
    read(n);
    for i := 1 to n do
        s[i] := random(99);
//    Println(s);    
        
    k := n div 2;
    for i := 1 to k div 2 do
    begin
        t := s[i];
        s[i] := s[k + 1 - i];
        s[k + 1 - i] := t;
        
        t := s[i+k];
        s[i+k] := s[n + 1 - i];
        s[n + 1 - i] := t;
    end;
    
//    Println(s);
    for i := 1 to n do
        write(s[i], ' ');
end.