Составьте программу которая вводит с клавиатуры значения a,x. Если a=1, то печатается x3....

Question

Составьте программу которая вводит с клавиатуры значения a,x. Если a=1, то печатается x3. Если a=2, то печатается x5

Comments

при х=7 х3=73 или ты что-то другое имел в виду?

---

нет х в 3 степени и х в 5 степени

---

Ну на будущее, это пишется x^3 и x^5

---

лан, запомню, спс)

Answer 1

Var a,x:integer;
begin
read(a,x);
if a=1 then write(x*x*x); else
if a=2 then write(x*x*x*x*x); // power для слабых духом.
end.

Comments

составьте программу вычисляющую и печатающую объемы цилиндров высотой H=25 и радиусами оснований от 4 до 13.

---

охх. Блин, забыл формулу... Секунду

---

const h=25;

---

это ответ как я понял?

---

нет, это в комментариях энтер автоматически выводит. А по нормальному он должен просто переводить на следующую строку

---

Короче шифт не зажал

---

const h=25
var i:integer;
begin
for i:=4 to 13 do
write(3,14*i*i*h);
end.

Если не работает, не кидайся камнями, всё подправлю

---

ааааахах)

---

Очень выручил))))

---

Ну да.... Пропустил ; после конст и лучше написать writeln вместо write. Вроде всё). Удачки