Решите на паскале эту блок схему

Ответы:

Богдан Нестеров

27-05-2018 16:05

Var x,p,s:integer;beginread(x);p:=1;s:=0;repeat if x>0 then s:=s+x else p:=p*x; read(x);until x=0;writeln(p,s);end.

Также наши пользователи интересуются:

Помогите пожалуйста сделать номер 107 буду очень благодарна Помогите не пойму как делать это задание

Картинка с текстом вопроса от пользователя Софья Гокова

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Решите на паскале эту блок схему» от пользователя Софья Гокова в разделе Информатика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!