Какие значения будут храниться в ячейках А5:А6 и С4:С6 после копирования в них формулы из А4.
Какие значения будут хранится в ячейках В3:В6 после копирования в них формулы из ячейки В2.
Какие значения будут хранится в ячейках Е1:Е6 после копирования в них формулы из ячейки D1.
Программа:
Pascal:
var
chemodan, klad, dop: real;
begin
write('Вес чемодана', #10, '<<< '); readln(chemodan);
write('Вес ручной клади', #10, '<<< '); readln(klad);
write('Вес доп. предметов ручной клади', #10, '<<< '); readln(dop);
writeln('Вес багажа: ', chemodan + klad + dop);
end.
Python:
chemodan = float(input('Вес чемодана\n>>> '))
klad = float(input('Вес ручной клади\n>>> '))
dop = float(input('Вес доп. предметов ручной клади\n>>> '))
print('Вес багажа:', chemodan + klad + dop)
GraphABC;
var
x, y: integer;
s: array of string;
b: GraphABC.Point;
begin
s := System.IO.File.ReadAllLines('in.txt');
foreach a: string in s do
begin
X := integer.Parse(a.Replace('(', '').Replace(')', '').Replace(' ', '').Split(';')[0]);
Y := integer.Parse(a.Replace('(', '').Replace(')', '').Replace(' ', '').Split(';')[1]);
if not (b.IsEmpty) then
GraphABC.LineTo(X, Y)
else
begin
GraphABC.MoveTo(X, Y);
b := new Point(x, y);
end;
DrawCircle(x, y, 10);
end;
LineTo(b.X, b.Y);
end.
Код, конечно, вырвиглазный, зато работает и прочитать его относительно легко:)
Содержимое файла in.txt (для теста)
(50; 50)
(90; 50)
(90; 90)
(50; 90)