Var a,b: Integer;
begin
writeln('Введите число a:');
readln(a);
writeln('Введите число b:');
readln(b);
writeln(a,'² = ',a*a);
writeln(b,'² = ',b*b);
end.
Ответ:если он пришёл в автостанцию озёрное и хочет отправиться в луговое, ещё одна самая близкая автостанция к нему это автостанция "Красное" . Отсюда он может выехать в луговое в 9:20 и приехать в 10:30. А если выехать из Заречное то до призода автобус уже уедит.
Объяснение:
Электронная таблица- программное средство для обработки табличных данных, различных операций и расчетов. Наименьшей структурной единицей этой таблицы является ячейка. В диапазон ячеек от A1 до B3 входит 6 ячеек: A1, A2, A3, B1, B2, B3, то есть ответ №1.
procedure vvod(var a, b, c: integer);
begin
readln(a);
readln(b);
readln(c);
end;
procedure min(const a, b, c: longint; var d: longint);
var
i: longint;
begin
d := a;
if d > b then
d := b
else
if d > c then
d := c;
end;
procedure sum(const ch:longint;var z:longint);
begin
z := z + ch;
end;
var
a, b, c, d, f, z: integer;
Ответ:
Хороший вопрос. Ответить я, конечно же, на него не смогу
Объяснение: