Дания:) Написать в OnPaint
Canvas.FillRect(Rect(10, 10, 3 * 200 + 10, 2 * 200 + 10));
Canvas.Brush.Color := clWhite;
<span>Canvas.FillRect(Rect(140, 10, 190, 2 * 200 + 10));
</span>Canvas.FillRect(Rect(10, round(2 * 200 / 2) - 25, 3 * 200 + 10, round(2 * 200 / 2) + 25));
Линейная структура на языке<u>Pascal</u>
Нахождение расстояния
var V,S,t:real;
begin
readln(V,t);
S:=V*t;
writeln(S);
end.
Ветвление
var a,b:integer;
begin
readln(a,b);
if (a>b) then writeln('+++') else
writeln('---');
readln;
end.
Цикл
var i:integer;
begin
for i:=1 to 5 do writeln(i);
readln;
end.
Program zadacha;
var x, y, z: integer (либо real);
begin
readln (x);
readln (y);
if x>=15 then
begin
z:=x*3;
end else
begin
z:=y*3;
end;
write (z);
end.
Var
a,b: real;
begin
write('Введите a:');readln(a);
write('Введите b:');readln(b);
if a>b then writeln(a,' - максимальное')
else if b>a then writeln(b,' - максимальное')
else
writeln('Значения равны');
end.
Приходить на работу нетрезвым
не красть еду у коллег
грубо и вызывающе себя вести неприемлемо
нельзя зависать в соц сетях
играть в комп игры
нельзя нецензурно выражаться
не уместны личные беседы по телефону
надо выглядеть чисто и опрятно
здоровайтесь не опаздывайте
помнить о времени,оно у всех ограничено
и конечно не провоцировать ссоры в коллективе
как то так)))