Написать программу на паскале: ввод с клавиатуры последовательности - вопрос №1606784 от victory66 06.09.2022 04:09

Question

Информатика: Написать программу на паскале: ввод с клавиатуры последовательности чисел заканчивается вводом нуля, найти произведение этих чисел, нуль в последовательность не входит

victory66 · Answer

program p; var a,b: integer; begin a:=1; repeat begin writeln( Введите число: ); readln(b); if b 0 then a:=a*b; until b=0; writeln( ответ: ,a); readln; end....