// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
begin
var (w, h) := ReadInteger2('w,h->'); // точка (w;h)
var (ox, oy) := (w / 2, h / 2); // находим координаты цента (0;0) и (w;h)
(w, h) := ReadInteger2('rw,rh->'); // ввод RW и RH
Println($'Координаты левой верхней вершины ({ox+h/2};{oy-w/2})'); // - половина высоты прибавляется и половина ширины вычитается
Println($'Координаты правой нижней вершины ({ox-h/2};{oy+w/2})'); // - половина ширины прибавляется и половина высоты вычитается
end.
Если моя математика не подводит, то должно быть верно.
Дано:a=b=27,94 дюймK_1=1200×1200 dpii=32 бита------------------I - ?
Решение:I=K*iI=K_1*a*b*i=1200×1200 dpi*27,94*27,94*32=35972057088 бит<span>≈</span>4288 мегабайт
Ответ: 4288 мегабайт
Набрать воду в 3-литровое ведро, слить в 5-литровое, потом опять набрать воду в 3-литровое. Итого 6 литров суммарно в обоих вёдрах
пирамида.................
Pascal
const
n = 15;
type
mas = array [1..n] of integer;
var
m : mas;
i : integer;
procedure inic (var a : mas);
var
i : integer;
begin
for i := 1 to n do
a[i] := 0;
end;
procedure num (var a : mas);
var
i : integer;
begin
for i := 1 to n do
a[i] := i;
end;
procedure w (var a : mas);
var
i : integer;
begin
for i := 1 to n do writeln (m[i]);
readln ();<span>
end;</span>
begin
inic (m);
num(m);
w(m);
end.
