Помогите с информатикой ​

Question

Помогите с информатикой ​

---

Answer 1

Ответ:

7.

var c:real;

   i:integer;

begin

write('Введите цену конфет c=');

readln(c);

for i:=1 to 10 do

writeln(i:2,' кг=',i*c:0:2);

end.

8.  

  x, n, summ = 1, -1, -1

  while x != 0:

  summ += x

  n += 1

  x = int(input())

  print(summ, n)

Объяснение:

Comments

и там ещё один вопрос

---

там не полностью ...

---

ок ты лучший спасибо

---

Спасиб) не за что