Написать программу на Паскале: «ввод с клавиатуры последовательности чисел…

Question

34

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

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

sipler · Accepted Answer

39

sipler

06 апреля 2023

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

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: