Виконайте алгоритм:1. Задумати два цілих числа.2. Обчислити добуток задуманих чисел3. Порівняти «Знайдений добуток дорівнює 1004. Якщо Так, повідомити «Дорівнює» і виконати команду 8якщо Ні, повідомити «Не дорівнює» і виконати команду5. Закінчити виконання алгоритму.5“. Складіть блок-схему алгоритму, наведеного в завданні№ 4. Виконайте цей алгоритм для двох різних пар цілих чисел. Підберіть ці пари так, щоб кожного разу виконання алгоритму відбувалося по-різному.​

var a:String;

   i,sum:Integer;

begin

 writeln('Введите последовательность чисел:');

 readln(a);

 a := a.Replace(' ', '');

 writeln('Количество чисел:' + a.Length);

 for i := 1 to a.Length do

   sum := sum + strToInt(a[i]);

 writeln('Сумма: ' + sum);

end.

Объяснение:

В начале я запросил последовательность чисел как строку, убрал все пробелы и посчитал длину самой строки, этим я узнал, сколько там чисел. Далее используя циклом посчитал сумму всех чисел.

Ввод:

1 2 3 4 5

Вывод:

Количество чисел: 5

Сумма: 15

var a:String;

   i,sum:Integer;

begin

 writeln('Введите последовательность чисел:');

 readln(a);

 a := a.Replace(' ', '');

 writeln('Количество чисел:' + a.Length);

 for i := 1 to a.Length do

   sum := sum + strToInt(a[i]);

 writeln('Сумма: ' + sum);

end.

Объяснение:

В начале я запросил последовательность чисел как строку, убрал все пробелы и посчитал длину самой строки, этим я узнал, сколько там чисел. Далее используя циклом посчитал сумму всех чисел.

Ввод:

1 2 3 4 5

Вывод:

Количество чисел: 5

Сумма: 15