Дан список чисел: 1 5 2 4 3. Выведите все элементы списка, которые больше предыдущего элемента.

225

482

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

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

mykmin001

Информатика

4,6(80 оценок)

Const p=8.35; var i,n,r,h: integer; b1,b: real; begin b1: =p/100; h: =20; r: =100-h; b: =p-b1*h; n: =(200-100) div h; for i: =0 to n do begin r: =r+h; b: =b+b1*h; writeln(r: 4,b: 6: 2); end; end. результат: 100 8.35 120 10.02 140 11.69 160 13.36 180 15.03 200 16.70