Решить задачу с помощью программы REPEAT. Килограмм творога стоит 300 тенге нужно найти...

Question

Решить задачу с помощью программы REPEAT. Килограмм творога стоит 300 тенге нужно найти стоимость творога 100 гр, 200 гр, 300 гр, 400 гр, и так до 1000 гр.

Answer 1

Var a : integer;
begin
repeat
a:=a+100;
writeln(a*0.3, ' руб за ', a, ' гр')
until a = 1000
end.

Comments

Она сама список цен выводит

---

а апострофы что означают?

---

Это для того чтобы писать текст в выводе программы

---

вот для ввода

---

var a : integer;
begin
repeat
read(a);
writeln(a*0.3, ' руб за ', a, ' гр')
until a = 0
end.

---

спасибо

---

Тут пока а <> 0 можно вводить кол-во грамм, она покажет цену

---

удачи вам)

---

Это вам:D

---

5 больше)