Написать программу на паскале: ввод с клавиатуры - вопрос №1606784 от kermantanja 04.03.2023 06:12

Question

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

kermantanja · 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....