Семья в 2005 году получила 400000 а в 2006 году 800000 в этот период индекс потребительских цен вырос в 2,5 раза определите размер реального дохода семьи

201

497

Посмотреть ответы 1

Ответы на вопрос:

yanaboss666

Экономика

4,4(23 оценок)

Var sum, count, t : integer; begin sum : = 0; count : = 0; while not eoln do begin read (t); if t > 0 then begin sum : = sum + t; count : = count + 1; end; writeln (sum, ' ', count); end. если количество элементов указано var sum, count, t, n, i : integer; begin sum : = 0; count : = 0; read (n); for i : = 1 to n do begin read (t); if t > 0 then begin sum : = sum + t; count : = count + 1; end; writeln (sum, ' ', count); end.