1) Можно ли вызвать командную строку в Windows без использования мыши? (Да)
2) Существует утилита "Экранная клавиатура" , а утилита "Экранная мышь" ? (Нет)
Использована формула
var
f, i: longint;
begin
f := 1;
i := 2;
while f < 3669972 do
begin
f := 2 * (f + i);
i := i + 1
end;
Writeln('m=',i)
end.
Результат выполнения программы:
m=21
По второй задаче 8+6=14
Var
x, y, z: integer ;
begin
x := 19;
y := 3;
z := y * 2;
y := x mod y;
x := x - z;
y := y + z;
writeln('x = ', x, ', y = ', y, ', z = ', z);
end.
Вывод
x = 13, y = 7, z = 6