Var i,a,c,b: integer; begin c: =1; writeln('введите число'); readln(a); writeln('введите степень'); readln(b); for i: =1 to b do c: =a*c; writeln (a, ' в сепени ',b,' =',c); end.
Спасибо
Ответ дал: Гость
v - объём цилиндрачисло пи = 3,14язык программирования: паскальvarv, r, h : real; beginreadln (r); readln (h); v : = 3.14 * sqr(r) * h; writeln (v)end.
Ответ дал: Гость
(телефон) поверчу волшебный круг,- и меня услышит друг. (стол) под крышей-четыре ножки, над крышей-суп да ложки. хоть по размеру и мала, информацию хранит она. знаем все устройство это )
Популярные вопросы