Запиши программу в Паскале для вычисления площади прямоугольника со сторонами b и p.

image. jpg

begin

writeln('Введи длину и ширину прямоугольника b и p');

readln (b, p);

s:=b*p;

writeln('s=',s);

readln;

end.

var

b, p, s:word;

begin

writeln('Введи длину и ширину прямоугольника b и p');

readln (b, p);

s:=b*p;

writeln('s=',s);

readln;

end.

var

b, p, s:word;

begin

writeln('Введи длину и ширину прямоугольника b и p');

readln (b, p);

s:=b*p;

var

b, p:word;

begin

writeln('Введи длину и ширину прямоугольника b и p');

readln (b, p);

s:=b*p;

writeln('s=',s);

readln;

end.

первый для однократной записи

а второй для перезаписывания(тоесть на нем возможно перезаписывание)

32 кбит/с*16 с=524288 бит=65536 кбайт.

вес 1 страницы=8*48=384 бит.48

кол-во стр=524288/384=1365 страниц

(3+3·3): 3=4

(3·3+3): 3=4

================

3+3–(3: 3)=5

(3+3): 3+3=5

================

3+3+(3–3)=6

3-3+3+3=6

3·3: 3+3=6

(3+3): 3·3=6

================

3: 3+3+3=7

3+3: 3+3=7

================

3·3–3: 3=8

================

3·3·3: 3=9

3: 3·3·3=9

3·3+3-3=9

3+3·3-3=9

================

3: 3+3·3=10

3·3+3: 3=10

var

n,a: integer;

begin

readln(n);

a: =(n mod 10)*1000+((n mod 100) div 10)*100 + ((n mod 1000) div 100)*10+ n div 1000;

if n> a then

writeln('число ', n, ' больше перевертыша ', a)

else

writeln('перевертыш ', a, ' больше числа ', n);

end.