Дана последовательность целых положительных чисел. Найти произведение только…

Question

56

Дана последовательность целых положительных чисел. Найти произведение только тех чисел, которые больше заданного числа М. Если таких нет выдатьсообщение об этом.

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

ответить

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

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

kosman · Accepted Answer

94

kosman

19 февраля 2024

var m,x,n,p,i: integer; s: boolean; beginp: =1; writeln ('Vvedite kolichestvo chisel: '); read (n); writeln ('Vvedite chislo s kotorim sravnit: '); read (m); writeln ('Vvedite cifri: '); for i: =1 to n do beginreadln (x); if m

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

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

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

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