Pascal прошу! даны длина и ширина прямоугольника составьте программу вычисления его периметра и площади. i. модель: дано: a,b - real найти: p,s - real формула: -? ii. алгоритм: 1) ввести: 2)вычислить: 3)вывести: iii. программа в паскале:

118

458

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

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

PVA8485

Информатика

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

L) формула: p=(a+b)*2; s=a*b; ll) ввести a и b; вычислить: p: =(a+b)*2; s: =a*b; вывести: p,s; lll) var a,b,s,p: real; begin read(a,b); s: =a*b; p: =(a+b)*2; writeln('s=', s,' ','p=', p); end.

Юля3класс

Информатика

4,4(52 оценок)

Var a,n: integer; begin read(a,n); write(power(a,n)); end.или вот так: var a,n,i,r: integer; beginread(a,n); r: =1; for i: =1 to n do r: =r*a; write(r); end.