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

image. jpg

var
b, m, s:word;
begin
writeln('Введи длину и ширину прямоугольника b и m');
readln (b, m);
s:=b*m;
writeln('s=',s);
readln;
end.
var
b, m, s:word;
begin
writeln('Введи длину и ширину прямоугольника b и m');
readln (b, m);
s:=b*m;
begin
writeln('Введи длину и ширину прямоугольника b и m');
readln (b, m);
s:=b*m;
writeln('s=',s);
readln;
end.
var
b, m:word;
begin
writeln('Введи длину и ширину прямоугольника b и m');
readln (b, m);
s:=b*m;
writeln('s=',s);
readln;
end.

если я не ошибся, то звучит так: у меня 2 брата. младшему 2 года, а старшему 8 лет. старший учится в 4 классе. может ли такое быть?

карандаш - графит; ископаемое, состоящее из угля и желез это же вещество, вставленное пруточками в деревянную трубочку, для черченья и рисованья.

16-битной кодировке unicode.

один символ  s  =16 бит

количество бит  текстового файла    к= 128000 бит/с * 60 с=  7680000

количество символов к/s=7680000/16  =480000

uses crt, graph;

var grdr, grmd,i,j,g: integer;

begin

grdr: =detect;

initgraph(grdr, grmd,’c: \bp\bgi’);

setbkcolor(lightgray);

g: =getbkcolor;

i: =20; j: =20;

begin

setcolor(red);

setfillstyle(1,red);

fillellipse(i,j,5,5);

delay(3000);

setfillstyle(1,g);

fillellipse(i,j,5,5);

i: =i+random(3);

j: =j+random(2);

end;

readln;

end.